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AU PROGRAMME 


m Basic a vingt ans, 

une histoire méconnue 

& 40 machines ont passé 
nos dix tests 

m Logo, Pascal el... 

la boîte à malices 
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1 COUVERTURE 

En informatique, l'ordinateur 
n'est qu'un instrument : 

il exécute machinalement 
les compositions du 
programmeur. Dans cette 
discipline pourtant pleine de 
logique, le talent, la 
créativité peuvent s'exprimer 
sans limite. L'illustration est 
signée Frapar. 


1 Le] A VOS CLAVIERS 
1 / LA GAZETTE DE 


LIST 


2 4 L'HISTOIRE DES 


LANGAGES : LE BASIC 
Initialement, le Basic était-il 
conçu spécialement pour les 
micro-ordinateurs ? Pas du 
tout, Créé pour des besoins 
universitaires, on pouvait 
parier qu'il resterait 
confidentiel. I} attendra 
d’ailleurs dix ans avant de se 
propager très largement. II 
est désormais le langage le 
plus connu du grand public. 


27 »s 


CARACTÈRES DE 
COMMANDE 

Sur Commodore 8000, 4000, 
Vic et C.64, vous utilisez 
sans doute certains 
caractères de contrôle. Mais 
êtes-vous bien sûr de les 
connaître tous ? 
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: 


3 0 UN PROGRAMME 


SOUS LA LOUPE 

Deux atouts pour ce 
programme de jeu (sur 
PB-700) : il est court et 
simple. C'est dire qu'il 
fournira aussi un bon point 
de départ pour développer 
d'autres jeux. 


3 2 DES MONSTRES 


BIEN CONSERVÉS 

Après avoir insufflé la vie à 
de petites créatures sur 
l'écran de votre Oric-1 et de 
votre Atmos, voyons 
comment enregistrer ces 
courtes séquences 
d'animation graphique. 


3 4 COMMODORE 16 : 


LE TRAIN-TRAIN DES 
INSTRUCTIONS 
STRUCTURÉES 

De plus en plus, le Basic 
tend à devenir un langage 
structuré. Le tout nouveau 
C.16 offre entre autres 
plusieurs structures de 
boucles. C'est une excellente 
chose. Malheureusement, 
leur vitesse est un peu 
décevante. 


4 L] UN HORODATEUR 


EN POCHE 

Abordée trop vite dans le 
manuel du constructeur, la 
fonction TIME du PC-1500 
mérite d'être connue à fond. 
Bien utilisée, elle rend 
possibles d'intéressantes 
applications. 
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3 / LE BASIC DE 


L'EXL 100 

Le Basic de l'EXL 100 est 
fourni avec l'ordinateur sous 
la forme d’une cartouche 
enfichable. Il présente des 
caractéristiques originales 
dont la plupart sont héritées 
du CC-40. 


40 METTEZ VOS 


TITRES EN VALEUR 

La réussite d'un logiciel tient 
en partie à la façon dont il 
se présente. Les titres, les 
génériques gagnent à être 
soignés. Quelques idées 
simples en attendant vos 
propres recettes. 


42 LES COUPS D'ŒIL DE LIST 


42 ÉDI-LOGO POUR APPLE H 


49 PASCAL, SUIVEZ 


LA PROCÉDURE 


L'instruction PEEK n'existe 
pas en Pascal. On ne peut 
donc pas lire un octet en 
mémoire centrale par les 
moyens habituels. Comment 
y parvenir tout de même 
sans avoir à rédiger une 
routine en Assembleur. 


Le] 1 UN COUP DE 


POUCE À L'INSPIRATION 

À partir d'une série de mots 
ou de groupes de mots, 
choisis par vous, demandez à 
votre ordinateur de composer 
des phrases dont vous 
n'auriez peut-être pas eu 
l'idée. 


Un bon moyen de découvrir le langage Logo. Le logiciel est 
fourni sous la forme de deux disquettes dont une 
d'utilitaires. Les documents d'accompagnement sont riches 
en suggestions et en exemples motivants. 


44 STORY BOARD POUR TO7, T07/70 ET MO5 
Comment, avec un crayon optique, créer des dessins, les 
transformer, les animer et les mettre en scène jusqu'à 
l'obtention d'un petit dessin animé (disquette ou cassette). 


46 DBASIC POUR DAI PC ET DAIT | 

Disponible sous forme de cassette ou de micro-cassette 
numérique, de nouvelles instructions Basic dont les plus 
intéressantes sont dignes des langages structurés. 


48 MONITEUR 1.0 POUR ORIC-1 ET ATMOS 
Aide à la programmation en langage-machine : la cassette 
apporte, outre un moniteur, un assembleur/désassembleur 


N° 7 - MARS 85 


N° 


à 4 LOGO : DIS-MOI 


OUL, DIS-MOI NON 

À la faveur d'un jeu de 
devinettes où le programme 
accroît ses connaissances, 
examinons comment, en 
Logo, constituer et explorer 
les arbres binaires. 


pe] / ORGANISATION 


DES DISQUETTES DU C.64 
Sur la piste du catalogue, 
certains fichiers sont 
signalés comme ayant été 
détruits. Mais sont-ils 
vraiment absents de la 
disquette ? Pas toujours. Un 
utilitaire permet alors de les 
ressusciter. 


60 LE BASIC DU QL 


Après les Sinclair ZX et 
Spectrum, le contructeur 
britannique reste fidèle à lui- 
même avec une machine 
dont le Basic n'est pas 
standard. Principale 
particularité de ce langage : 
il se prête bien à la 
programmation structurée. 


RÉDACTION-RÉALISATION 


64 MISEZ P'TIT, 


OPTIMISEZ 

Grignotons les octets et les 
fractions de seconde (HP-41). 
Les résultats du problème 
proposé dans LIST 5 
(Triangle de Pascal) et un 
nouveau défi lancé aux 
lecteurs. 


66 DIR DE DIR SUR 


TRS-80 

Où se trouve quoi ? Pour peu 
que vous ayez le bon DOS, 
en quelques instants, votre 
TRS-80 modéle I ou III 
imprimera la liste triée de 
tous les fichiers qui dorment 
Sur vos disquettes, 
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PROGRAMMES-BONZAÏS 
L'amateur de programmation 
éprouve souvent un malin 
plaisir à distiller ses 
programmes, à les réduire 
Jusqu'à n'en garder que le 
strict minimum. Trois 
exemples de cette extrême 
concision vous sont donnés 
(ici sur X-07). 


69 LA BOÎTE À 


MALICES 

Prenez un programme et 
retirez-en toutes les astuces, 
des plus grossières aux plus 
subtiles. Que reste-t-il ? 
Rien. Dans ce numéro, des 
ficelles pour TO7, TO7/70, 
HP-41 C, TI-57, Dai, 
PC-1211, ZX 81 {+ 16 Ko), 
C.64 et Canon X-07. 


6 0 LA RÉCRÉ DE 


LIST 
Exercez votre logique et 
votre ingéniosité pour 
résoudre quelques petits 
problèmes simples en 
apparence. 


63 LES DIX TESTS 


DE LIST 

Ce sont maintenant quarante 
ordinateurs (de table comme 
de poche) qui ont subi les 
dix tests de LIST, Un tableau 
récapitule les résultats. 
Attention toutefois, 
comparaison n'est pas raison, 


Ce numéro contient en 
encart des bulletins 
d'abonnement paginés 11, 
12, 77 et 78. 
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A À 


Limité par Basic ? 

impatient, lorsqu'un compila- 
teur classique prend 5 mn pour 
compiler 100 lignes ? 


TURBO Pascal a été conçu 
pour vous. 


TURBO PASCAL 
EST UN SYSTEME COMPLET 


I! comprend un éditeur et un 
un compilateur dans le même 
programme. 

(28 K CPM. 36 K 

sous MS DOS). 


Vous passez de l'un à 
à l'autre par une touche : plus 
besoin de jongler avec disquettes 
ou fichiers. 


LA COMPILATION SE FAIT 
EN MÉMOIRE 


Un compilateur classique utilise des 
fichiers intermédiaires sur disque; 
jusqu'à 90 * du temps peut être con- 
Säcré aux opérations de lecture/ 
écriture sur disque. 

Avec TURBO Pascal, la compilation se 
fait en mémoire en une seule passe : le 
temps de compilation est réduit au 
strict minimum. 

Par exemple, Microcalc, programme 
de démonstration de 1.200 lignes 
fourniavec TURBO Pascalest compilé 
en 30 secondes (à 4 Mhz). 

Si une erreur survient lors de la compi- 
lation, l'emplacement de l'erreur est 
retrouvé dans le code source et le 
mode éditeur activé : corriger un point- 
virgule oublié ne prend que quelques 
secondes. 


L'ÉDITEUR INTÉGRÉ 

EST CONFIGURABLE. 

Vous pouvez redéfinir toutes les com- 
mandes. 1l lit les programmes écrits 
avec d'autres traitements de texte. 


DE NOMBREUSES EXTENSIONS 


vous permettent d'utiliser à fond votre 

ordinateur. 

- appels aux fonctions du DOS 

e opérations sur la mémoire, 
les ports d'entrée/sortie 

. fonctions AND 
OR, XOR, sur 
les entiers 


ps 


+ type String avec fonctions de traite- 
ment de chaines 

+ procédures de gestion de l'écran 

8 fichiers prédéfinis 

modules de recouvrement 

{overlays)permettant d'écrire de très 

grands programmes 

fichiers à accés aléatoire avec 

“seek” 

constantes structurées permettant 

d'initialiser rapidement ensembles 

et tableaux 

identificateurs de 127 caractères 

programmes chaînés avec partage 

des données 

variables absolues placées à 1 

adresse précise en mémoire. 


REVUES... 
“Des performances à faire pâlir" 
«LIST », Nov. 1984 
“TURBO Pascal offre tout ce qu'un uti- 
lisateur de Pascal peut attendre en 
dépassant même largement ses espé- 
rANCEs « ORDI», Nov. 1984 
“The best cost less" 

«Creative Computing », juillet 1984 
“TURBO Pascal appears to viclate the 
laws of thermodynamics”. 

« SOFTALK », Mars 1984 

“This dynamic new language compiler 

is a “VolksPascal", with most of Pas- 

cal plus a few extras. It introduces a 

new programming environment and 
runs like magic”. 

«PC MAGAZINE », Nov. 1984 


TURBO 87 permet 
d'utiliser le coprocesseur 
8087 sur les machines 16 bits. 


Remboursement possible par retour 
de la disquette non ouverte sous 
15 jours. 


| CAN 
ENVOYEZ-MOI DE SUITE = 


O TURBO PASCAL 

625 F + 116,25 F TVA 
D TURBO 87 

1.150 F + 213,90 F TVA 


Q JE PRÉFÈRE LE MANUEL ANGLAIS 
O ORDINATEUR : 

DISQUES 0 31/2" D 51/4 O8" 
SYSTÈME D'EXPLOITATION: 


O MS-D0OS CO CMP-80 
D PC-DOS CPM 86 
REGLEMENT 


Q CHÉQUE JOINT 

D CONTRE-REMBT. (+ 50 F) 

-< Remboursement garanti si renvoi de la 
pochette non ouverte sous 15 jours 

+ Remplissez soigneusement le bon de 
commande 


NOM 
ADRESSE 


TEL 
SIGNATURE 


SAUVER 
SES OEUVRES 


E viens d’acquérir un Ams- 
strad, moniteur couleur, 
et toute la famille se met — avec 
quelques difficultés — au Basic. 
Nous venons notamment 
d’entrer le programme Amstrad- 
Graphe proposé dans votre 
numéro 6. Formidable. Les 
enfants se disputent le clavier. 
Nous l’avons également sauve- 
gardé en changeant le r de 1 en 
mode 0, et nous réalisons des 
dessins en neuf couleurs. 

Malheureusement, nous avons 
un problème pour la réutilisation 
d’un dessin « archivé ». La pro- 
cédure que nous employons est 
la suivante : 

e à la fin du dessin, deux fois 
ESC pour avoir READY ; 

e SAVE «nom du dessin », 
B,&C000,&4000 

Lorsque nous voulons réutili- 
ser le dessin, nous frappons 
LOAD « nom du dessin » et, à 
l’écran, le dessin apparaît mais 
d’une part, il n’a plus les cou- 
leurs d’origine et d’autre part, 
les messages BREAK, READY, 
SAVE... s'inscrivent aussi. Il 
n’y a plus moyen alors d’appor- 
ter une modification à ce dessin, 
ni d’envisager son utilisation 
avec un texte, par exemple. 

Le guide livré avec l’ Amstrad 
ne nous à apporté aucune 
réponse. Nous attendons vos 
« lumières » avec impatience. 


Claudie MORVAN 
91 Massy 


La solution consiste à pro- 
grammer la sauvegarde ou 
le chargement du dessin, c'est-à- 
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dire à introduire les instructions 
SAVE et LOAD dans des lignes 
de programmes. Ainsi, en allon- 
geant le programme initial avec 
les lignes suivantes : 

385 IF C$="‘S’”’ THEN SAVE 
“DES'’,B,&C000,&4000 

386 IF C$ = ‘‘Z” THEN LOAD 
“DES” 

votre dessin sera sauvegardé, ou 
chargé selon votre choix, et 
pourra être utilisé à nouveau. 


Fraciel 


L'Ordinateur Individuel 


Petit Ordinateur Illustré ... 


LA GUERRE DES 
TROIS 


ARTICLE intitulé « La 


L guerre des trois» et 
publié dans LIST 6 page 20, m’a 
beaucoup plu : c’est une bonne 
idée de nous présenter des systè- 
mes curieux ou des réalisations 
bizarres. 

Au début de l’article vous 


Maubert A Te 


Écrivez à LIST 
5 place du Colonel Fabien 
75491 Paris Cedex 10 


écrivez que les nombres de —4 


à +4 sont : — —, —0, —1,0, 
1, 1-—, 10, 11. Ne serait-ce pas 
plutôt : — —, —0, —1, —,0,1, 
1-—, 10, 11 ? 


Dans ce cas, il est facile 
d'écrire une valeur négative à 
partir de la colonne de la table 
de conversion décimal-ternaire 
en remplaçant les — par des I et 
les 1 par des —. Par exemple, les 
décimaux de 1 à 5 sont, en ter- 


naire :1,1-—,10,11,1— —,Les 

nombres négatifs de —1 à —5 

deviennent donc : —, —1, —0, 

——, —i1. 

Est-ce juste ? Enfin, j'aurais 
préféré Trit à Tit.…. 

Alain Scerri 

94 Arcueil 


A tous les stades de la 
fabrication de notre jour- 
nal, nous passons beaucoup de 
temps à chasser les erreurs et les 


fautes. Et malgré cela, il nous en 
échappe toujours. Là, un petit 
tiret (ô combien important) s’est 
en effet soustrait à nos yeux vigi- 
lants. Vous l'avez rattrapé, 
merci. 

Quant à votre idée de conver- 
sion décimal-ternaire pour les 
nombres négatifs, elle est non 
seulement rapide, mais encore 
exacte. En effet, le tiret (—) cor- 
respond à — 1, opposé de 1. Le 
programme de conversion n'est 
donc nécessaire que pour les 
valeurs positives, les valeurs 
négatives en étant déduites grâce 
au procédé que vous avez 
remarqué. 


BESOIN 
D'ESPACE 


NE petite question à propos 

de mon Canon X-07: 

devant chaque instruction 

LPRINT, je suis obligé de lais- 

ser un espace supplémentaire, 

sinon il se produit une erreur de 
syntaxe. 

Est-ce normal, docteur ? Est- 
ce moi qui ai mal lu le mode 
d’emploi ? Est-ce une anomalie 
de mon Canon ? 


Rémi DUCROT 
51 Reims 


Bizarre, cet espace dont a 

besoin votre instruction 
LPRINT. Cela provient peut- 
être de la série de votre machine. 
En tout cas, sur les X-07 que 
nous avons examinés, il n’en va 
pas de même : LPRINT se com- 
porte comme Îles autres 
instructions. 
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UN DRÔLE 
D'ACCENT 


TANT très, très novices 

dans la programmation et 
le maniement de l’Amstrad, 
nous n'avons pu, mon fils et 
moi, trouver le signe « accent 
circonflexe » (”) se trouvant aux 
lignes 470, 490 et 550 d’un pro- 
gramme publié dans LIST 6 
page 62 (Amstrad-graphe). Nous 
enrageons de ne pouvoir faire 
tourner ce programme au 
demeurant très intéressant. 


Auriez-vous la gentillesse de 
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nous indiquer comment obtenir 
ce petit signe qui nous arrête. 


Pierre di Costanzo 
78 Mantes la Jolie 


Le petit accent circonflexe 

qui apparaît dans les listes 
de programme, placé entre des 
nombres ou des variables, repré- 
sente le signe mathématique de 
l'élévation à la puissance. 

Sur le papier, c'est un accent 
circonflexe. Sur le clavier de 
l’Amstrad, le signe à taper est la 
flêche vers le haut (f) maïs atten- 
tion, celle qui se trouve sous le 
signe de la livre sterling (£). 
Ainsi, ce qui s'écrit mathémati- 
quement 3° s'écrit 319 sur 
l’Amstrad et devient 3°9 sur la 
liste imprimée. 


- ORDINATEUR DÉBRENCHE 5e 
SE SOUVENANT AVEC ÉMOTION, 
Du TEMPS où iL ÉTRIT FRANCHE 


Œ 


= MARCO !QUEST- 
£ QUE TU FAIS ,, 
A CÈTIE HEURE : 


OICI un petit divertissement qui fait appel à tout votre 
sens logique et fureteur. Il s'agit de résoudre un problème 
qui met en jeu cinq machines et cinq périphériques. Les machi- 
nes sont : un Commodore 64, un IBM 3, un Macintosh, un Léa- 
nord Sil’z, un Thomson TO7. Les périphériques sont : un dis- 
que, une cassette, un clavier, un télétype et un écran graphique. 
(Ne pas tenir compte de la comptabilité avec les machines). 

A midi, à l'heure du café, cinq personnages discutent : un 
analyste, un chercheur, un enseignant, un ingénieur, un program- 
meur, Celui qui a des moustaches est chauve. Voici le document 
qu'ils commentent : 


Si Phistoire que je conte est un peu embrouillée, 
Sachez que cinq machines sont ici concernées. 
Le programmeur, dont l’IBM est la voisine, 
Préfère utiliser la première machine. 

Le châtain sur cassette, le chercheur au clavier, 
Ont pour l’enseignant roux des notes à calculer. 
Au milieu, avec Forth, on fait de la musique. 
Même si un voisin peut tout stocker sur disque, 
Le nouveau TO7, si tu as des moustaches, 

Est pour toi la machine à simplifier les tâches. 
Devant le Macintosh, l’ingénieur prend sa pipe. 
Un voisin, dit le brun, est sur le télétype. 
Tandis que l’analyste en PL/1 programme, 
Avec humour le blond pour le Cobol se pâme. 
Le Commodore, placé à droite du Silz 

Un programme en Basic exécute sans aide. 


Moralité 
Pour qui l’écran graphique présente-t-il un texte ? 
Qui utilise Logo dans un pareil contexte ? 


Un lecteur 


JE... dE M'FAÏSAS 
UN PROGRAMME SUR 
_ | MA. BÉCANE ! 
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UNE CASSETTE 


Images 

pour Oric Atmos 
Distribué par Infogrames 
Prix : environ 160 FF 


N.B:On ne 
dessous de #3558 


© INFOGRANES 


UTILISATION DES COMMANDES : 
-1- Chercher une image sur cassette 


Creer une image 
Appeler une image en memoire 
Sauver une image sur cassette 


Connaitre l'addresse de fin d'une 
image 


Adapter une manette de jeux 


ut mettre d'images en 


ENTREZ VOTRE CHOIX <1,2,3,4,5 ou 6)- 


IMAGES est une cassette de 
création graphique conçue 
pour le micro-ordinateur Oric 
Atmos. Un emballage attrayant, 
avec une séduisante reproduc- 
tion informatisée de la Joconde 
(elle sourit bien, merci). On se 
voit déjà dans la peau de Léo- 
nard. La notice a déjà un peu 
refroidi notre enthousiasme, en 
annonçant dans les nouvelles 
fonctions disponibles CIRCLE 
et FILL. A y bien regarder, il me 
semble que j'avais déjà tout cela 
sur mon Oric. En fait, l'intérêt 
du logiciel est, je cite, « qu’il 
permet d’exploiter facilement les 
possibilités de l’Oric, sans maî- 
triser les techniques de program- 
mation ». On comprend mieux. 
De plus, les images produites 
seront compactées (gain de 40 % 
environ) et pourront être repri- 
ses dans un programme Basic ou 
LM. Voilà qui ne manque pas de 
devenir intéressant, 

La technique utilisée pour la 
création de l’image est assez 
banale : on retrouve le principe 
du télécran (un point est mobile 
sur l’écran, avec ou sans trace). 


Une portion de l’écran est affec- 
tée à des informations pratiques, 
notamment un zoom sur l’envi- 
ronnement (les 8 points autour) 
du point mobile. C’est pratique. 
Une option écriture permet d’af- 
ficher du texte. Duplication per- 
met de reproduire une portion 
d’image saisie dans un rectangle. 
Pattern offre la possibilité de 
modifier bit à bit l’octet utilisé 
pour des tracés de droites 
(DRAW) ou encore de cercles 
(CIRCLE). 

Position renseigne sur la posi- 
tion et l’état du curseur, et Fil} 
permet de remplir une zone de 
couleur. Le procédé retenu sem- 
ble convenir pour réaliser des 
dessins géométriques, mais il est 
peu adapté aux dessins artisti- 
ques. Il n’est, par ailleurs, pas 
possible de faire une copie de 
l’écran. Le logiciel sera intéres- 
sant pour des applications bien 
précises, grâce notamment aux 
possibilités de compactage et à 
la facilité d’utilisation des ima- 
ges obtenues dans un pro- 
gramme Basic. 

JD 


Canari 


ICROLOGUE qui titre « L’informatique décontractée » a 
annoncé une nouvelle version de son générateur de pro- 


grammes Canari. 


Baptisé tout simplement Canari II, le programme peut être 
implanté sur tout ordinateur supportant MS-DOS, Prologue ou 
CP/M 86. Six aménagements nouveaux ont été développés, parmi 
lesquels une nouvelle présentation des écrans (permettant notam- 
ment l’inversion vidéo), une touche « magique » afin d'obtenir 
l’environnement complet (variables et fichiers) du point du pro- 
gramme dans lequel on se trouve, et la possibilité d’introduire 
des mots de passe quel que soit le programme. 


Le tout pour 1 500 FF ht. 


Micrologue : Maison de l'informatique 


18 rue Trémolet 
42700 FIRMINY 
Tél. (77) 89 11 11 
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Pour mieux voyager, l’Apple Ile maigrit 


EPUIS le 1e° février, Apple propose aux possesseurs d’Ap- 

ple IIc un écran plat à cristaux liquides (poids : 1,1 kg). 

Commercialisé au prix de 7 000 FF tte, le nouvel écran peut 

afficher des textes « plein écran » sur 80 caractères par ligne et 

24 lignes par écran, ainsi que des graphiques d’une résolution de 
560 points horizontaux sur 192 points verticaux. 

Facile à installer, l'écran à cristaux liquides se branche direc- 
tement sur le panneau arrière de l’ Apple Ilc et ne nécessite aucune 
alimentation électrique extérieure. Le nouveau moniteur mesure 
13,8 cm de large sur 29 cm de long et 4 cm d’épaisseur. C1 


Commodore change 
de cap 


PRÈS une sorte de valse- 
hésitation, Commodore 

vient enfin de dévoiler sa straté- 
gie pour 1985. Une précision 
toutefois, rien n’est encore très 
officiel et il faudra pour l’instant 
se contenter des rares déclara- 
tions de Procep pour éclairer nos 
lanternes. Résultat : ni le Com- 
modore 16 ni le nouveau plus 4 
ne seraient en définitive com- 
mercialisés en Europe. En revan- 
che, l’accent serait mis... sur le 
Commodore 64 (vous avez bien 


‘lu : le Commodore 64), ainsi que 


sur le « petit » dernier : le Com- 
modore 128. Disposant de 
128 Ko (comme son nom l’indi- 
que), le nouveau Commodore 
sera Compatible avec les logiciels 
développés pour le 64. De la 
même manière, le 128 dispose de 
16 couleurs, 8 lutins et un géné- 
rateur de sons à trois voies. 

Seules innovations, la 
mémoire est extensible à 512 Ko, 
le clavier de 92 touches a été 
entièrement remodelé, et le lec- 
teur de disquette adéquat (tou- 
jours non intégré) devrait être 
beaucoup plus rapide que l’an- 
cien modèle (2 000 cps contre 
320 pour son ancêtre). Dernière 
précision, à côté du 8 500 de 
base qui équipe le Commodore 
128, un co-processeur Z 80 
devrait permettre d’utiliser la 
plupart des programmes CP/M. 
Le prix de ce 64 « musclé » : 
environ 4 000 FF. 

Mais chat échaudé craint l’eau 
froide, et l’on restera prudent 
concernant la date de commer- 
cialisation « réelle » du 128. 
D'ici que l’on apprenne qu’il est 
réservé à d’autres pays que la 
France... L 


ARDER ses aises, c’est ce 
que propose la société 

Micro Laser grâce à une rallonge 
Péritel de trois mètres. Dite uni- 
verselle, la Périlonge permettra 
à la fois d’utiliser son ordinateur 
dans un fauteuil et de ranger son 
magnétoscope à une distance 
raisonnable de la télévision. La 
Périlonge coûte 300 FF et est 
entièrement française. 
Micro Laser 
23 rue du Languedoc 
31000 Toulouse 
Tél. (61) 55 19 77 E 


Concours d 


OUS résidez en Vendée, 
Charente-Maritime ou 
dans les Deux-Sèvres. Vous pou- 
vez donc participer au concours 
de logiciels grand public orga- 
nisé par le Crédit Mutuel des vil- 
les de La Roche-sur-Yon, 
Rochefort-sur-Mer et Saintes. 

Les candidats pourront sou- 
mettre au jury deux types de 
programmes : logiciels de jeux 
ou logiciels domestiques et pro- 
grammes d’apprentissage. 

Des prix de 10 000 F environ 
récompenseront les vainqueurs. 
Clôture du concours le 15 avril. 
Pour tous renseignements : 
Caisse Fédérale du Crédit 
Mutuel Océan 
34 rue Léandre-Merlet 
85001 La Roche Sur Yon 
Tél. (51) 05 44 44 E 
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Atari drague les 
créateurs de logiciels 
européens 


AISANT suite à l’annonce 
fracassante des ordina- 
teurs ST, alias « Jackintosh » 
(des Macintosh à la sauce Atari), 
Sigmund Hartman, Président de 
la division logiciel d’Atari, a 
déclaré lors de son passage éclair 
à Paris qu'il fera largement 
appel à des sociétés de logiciels 
européennes. But de l’opéra- 
tion : fournir en masse des logi- 
ciels pour la série des ST dont le 
« clou » est certainement le 130, 
une sorte de Macintosh avec la 
couleur, annoncé à 399 dollars, 
soit moins de 4 000 FF. 
Français, Anglais, Allemands 
ont donc été sollicités pour déve- 
lopper à la vitesse grand V les 
logiciels de demain. Il est vrai 
que sans eux, Macintosh peut 
dormir tranquille même si Sig- 
mund Hartmann a précisé 
qu'’Atari comptait vendre quel- 
que deux millions de ST en 1985. 
De la vitesse de la réponse des 
éditeurs et développeurs de logi- 
ciels européens dépendra donc 
une partie du succès des nou- 
veaux Atari. Avis aux fûtés qui 
ont des idées. Li] 


E désespérez plus, vous 
pouvez désormais conce- 
voir des programmes d’enseigne- 
ment sur IBM/PC. La société 
Alpha Education vient d’annon- 
cer la disponibilité d’un système 
de création de cours et d’ensei- 
gnement assisté par ordinateur 
EAO Tencore conçu pour les 
ordinateurs IBM/PC. 
Langage de programmation 
puissant, Tencore permet au 
professeur d'imaginer sa propre 
méthode pédagogique. La créa- 
tion de cours EAO par Tencore 
nécessite un IBM/PC (ou com- 
patible) disposant de 192 Ko de 
mémoire, de deux lecteurs de 
disquette et d’une carte graphi- 
que couleur. 
Alpha-Education 
195 rue de Bercy 
Tour Gamma A 
75012 Paris 
Tél. (1) 347 67 13 ou 
(1) 347 67 14 Li] 


LIST - PAGE 18 


UN PETIT TOUR CHEZ LE LIBRAIRE 


Mon Commodore 64 
Manuel de l'utilisateur 

John Heilborn 

et Ran Talbott 

Traduit par Jacques Richard 
Editions Mc Graw Hill 
Paris, 1984 

Broché, 428 pages 

Prix : 150 FF 


Programme interne du 
Commodore 1541 
Milton Bathurst 
Editions Data Cap 
Distribué par PSI 
Lagny, 1984 

Broché, 250 pages 
Prix : 130 FF 


La conduite du MO 5 
Jean-Yves Astier 

et Olivier Kauf 
Editions Eyrolles 
Paris, 1985 

Broché, 138 pages 
Prix : 85 FF 


Apprivoiser TO 7, TO 7/70 
et MO 5 

Pour apprendre à converser 
en Basic 

Bernard Dupuy 

et Bernard Violet 

Editions Foucher 

Paris, 1984 

Broché, 176 pages 

Prix : 59,50 FF 


Faites vos jeux sur PB-700 
Jean-Marc Nasr 

et François Manchon 
Editions Eyrolles 

Paris, 1985 

Broché, 108 pages 

Prix : 90 FF 


Les écrans du ZX Spectrum 
Livre ji : Premiers pas en 
programmation 

Livre 2 : Pour en savoir plus 
en programmation 

lan Graham 

Editions Hachette 

Paris, 1984 

Brochés, 64 pages 

Prix : 90 FF chaque livre 


Basic MSX 

1 - Méthodes pratiques 
Jacques Boisgontier 
Editions PSI 

Lagny, 1985 

Broché, 216 pages 
Prix : 120 FF 


Trucs et astuces du 
Commodore 64 
Angerhausen 

L. Englisch 

Gerits 

Editions Data Becker 
Distribué par les Editions 
Radio et Micro Application 
Paris, 1985 

Broché, 222 pages 

Prix : 149 FF 


Activités avec 

le Commodore 64 
David Lawrence 
Traduit par Jacques 
Baudeneau 

Editions Hachette 
Informatique 

Paris, 1984 
Broché, 190 pages 
Prix :95FF 


MSX, Initiation au Basic 
Rodnay Zaks 

Editions Sybex 

Paris, 1985 

Broché, 238 pages 

Prix : 98 FF 


Le livre du MSX 
Daniel Martin 
Editions BCM 
Distribué par PSI 
Lagny, 1984 
Broché, 204 pages 
Prix : 110 FF 


ProDos sur Apple Ile et Ile 
Francis Verscheure 
Editions PSI 

Lagny, 1985 

Broché, 100 pages 

Prix : 85 FF 


Les écrans du Commodore 64 
Premiers pas en 
programmation 

Livre { 

Phil Cornes 

Editions Hachette 
Informatique 

Paris, 1984 

Broché, 64 pages 

Prix : 90 FF 


Le Basic sur le bout des 
doigts avec Commodore 64 
Herbert Peckham 

Traduit par Léon Collet 
Editions Mc Graw Hill 
Paris, 1984 

Reliure spirale, 378 pages 
Prix : 135 FF 


Le Logo 

Boris Allan 
Editions Belin 
Collection Modulo 
Paris, 1984 
Broché, 116 pages 
Prix : 95 FF 


Microprocesseurs 8086-8088 
Architecture et 
programmation 
coprocesseur de calcul 8087 
Jean-Michel Trio 

Editions Eyrolles 

Paris, 1984 

Broché, 232 pages 

Prix : 130 FF 


Manuel de l’assembleur 
6809 du MO 5 

Michel Weissgerber 
Editions Cédic/Nathan 
Totek International 
Paris, 1984 

Broché, 192 pages 

Prix : 145 FF 


Carte Minitel 
pour Canon X-07 


ANS LIST 6 (page 16), 

nous signalions l'existence 
d’une carte Minitel pour Caron 
X-07 intitulée Electronic Cable 
Interface (ECI). Nous imputions 
ce sigle à la société qui la com- 
mercialise. Cette société s’ap- 
pelle en fait : Electronic Service 
Computer (ESC). Elle se trou- 
ve 67 Cours Lieutaud, 13006 
Marseille et, pour tout rensei- 
gnement, on peut la joindre au 
(91) 42 99 42. 
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Jouer avec son: 
micro-ordinateur 

Jeux éducatifs - simulations 
Jeux d’aventure - Wargames 
Olivier Chazoule | 
Editions Marabout 
Informatique 

Paris, 1984 

Broché, 190 pages 

Format poche 

Prix: 24FF 


Méthode générale d’analyse 
d’une application 
informatique 

Tome 2 

Xavier Castellani 

Editions Masson 

Paris, 1984 

Broché, 244 pages 

Prix : 156 FF 


250 questions sur la 
micro-informatique 
Iya Virgatchik 
Editions Marabout 
Paris, 1985 

Broché, 224 pages 
Format poche 


Prix : 24 FF C] 


Mitsubishi - Casio 


STEP UP 
Montez les étages 
de l'immeuble infernal 


PICTURE PUZZLE 
Reconstituez les dessins 
du puzzle électronique 


BUTAMARU 


Ne cassez pas les œufs qui 
tombent du ciel 


Mr CHIN 
Jouez à l'équilibriste 
avec les assiettes 


MUE 


cal assisté par ordinateur 


EDDY-2 


rotation, effacement, etc … 
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TT 


AD HAL 64 
FRUIT SEARCH 


Devinez le nom des fruits 


SUPER SNAKE 
Le serpent diabolique dans 
un fabyrinthe 


HEAVY BOXING 
Combat de boxe contre 
l'ordinateur ou un adversaire 


SPACE TROUBLE 


Bataille de l'espace 


PROGRAMMES SPECIAUX 


Programmes d'enseignement musi 


Programme évolué de conception 
graphique. Il offre grâce à la boule 
CAT des possibilités de D.A.0. 
réservées aux systèmes profession 
nels 16 couleurs, effet de zoom, 


Nouvelles cartes pour 
Canon X-07 


NFO-SYSTÈMES met fin au 

principal reproche que l’on 

peut faire aux ordinateurs de 

poche. Mémoire trop faible ? 

C’est fini, tout au moins pour le 
Canon X-07. 

Info-Systèmes propose effec- 
tivement deux nouvelles cartes 
mémoire CMOS pour augmen- 
ter notablement la capacité du 
X-07. La première carte offrira 
40 Ko de mémoire vive supplé- 
mentaire (durée de vie d'environ 
dix ans grâce à sa pile au mer- 
cure), la seconde permettra de 
figer 32 Ko de mémoire en 
Eprom. 

Les deux cartes sont vendues 
indifféremment 8SOFF tic. 
D’autres cartes de moindre 
capacité sont également disponi- 
bles : une mémoire vive de 8 Ko 
à 380 FF et une Eprom (égale- 
ment 8 Ko) à 150 FF. 
Info-Systèmes 
ZA La Combe 
01510 Virieu le Grand 
Tél. (79) 87 83 72 CL] 


CARTOUCHES STANDARD 


Compatibles avec: Sanyo - Canon - Yamaha 
Sony - Paxon - Hitachi - Pioneer - National 


Toshiba - Yeno - etc. 


HOLE IN ONE Golf, plusieurs degrés de difficultés, simulation parfaite de votre jeu 
ACCESSOIRE SPECIAL CAT 


Graphic Trackball. Boule de commande dénommée « le 
chat » permettant une accélération fantastique des mou- 
vements. |} donne des résultats extraordinaires avec les 
programmes : FRUIT SEARCH, SPACE TROUBLE, MUE, 


et surtout EDDY-2 


or ef 
DRAGON ATTACK 
Les dragons envahissent 
le ciel et la terre 


SPACE ATTACK 
Cherchez votre chemin 
dans un labyrinthe 


SUPER BILLARD 
Exerce/-vous au billard 
depuis votre fauteuil 


ROËLER-BALI 


Hipper électronique 


Pour lès professionnels de l’image 


OLE Nationale des Arts Décoratifs organise des stages 
d'informatique graphique destinés aux professionnels.de 


:..Les participants pourront i se familiariser avec les 
ê f phie utilisés dans les domaines de la 
ecture, de la conception d’objets et 


de-formes... 


TROIS CASSETTES 


Des logiciels 

pour votre PB-700 

Edité par Logi’stick 
Distribué par DDI 

Cale 

Graphe 

Fichiers 

Prix de chaque cassette : 
140 FF environ 


OGPSTICK propose trois 
logiciels aux possesseurs 

de Casio PB-700 : Calc, Graphe 
et Fichiers. Comme leurs noms 
Pindiquent, ils sont directement 


ATHLETIC LAND 


Le paradis des sportifs 


Apprenez à compter 
en Vous amusant 
SUPER COBRA 


Mission dangereuse 
pour l'hélicoptère 


HYPER OLYMPIC 1 


COMIC BAKERY 


lutte entre boulanger et 
ratons-laveurs dans la 


Vente en gros : 


PAS AP KON AM | EP 


MONKEY ACADEMY 


TRACK and FIELD 1 


Jeux Dlympiques 1°* partie 


fabrication des croissants 


Le sport dans un fauteuil 
EN VENTE: FNAC - DARTY - HACHETTE 
et tous distributeurs MSX 


49, Bd St Germain 75005 PARIS - 329.35.89 


issus des tableurs et autres bases 
de données qui sont maintenant 
monnaie courante sur les ordina- 
teurs à vocation professionnelle. 

Les trois programmes se pré- 
sentent sous la forme d’une cas- 
sette au format standard, 
accompagnée d’une notice sim- 
ple, mais claire et suffisante. 
Leur utilisation nécessite une 
mémoire un peu musclée : il faut 
au moins un OR-4 (extension de 
mémoire 4 Ko) pour Calc et 
Graphe, et deux pour Fichiers. 
Pour ceux qui en ont la possibi- 
lité, les trois extensions possibles 
sont recommandées ; Calc peut 


E) 


ANTARTIC ADVENTURE 
Aventure d'un pingouin 
sur la banquise 


TIME PILOT 
Jeu de tir rapide 
aux commandes d'un avion 


CIRCUS CHARLIE 
Le cirque chez vous 

réalise des prouesses 
HYPER OLYMPIC 2 
TRACK and FIELD 2 


Jeux Olympiques 2ème partie 


HYPER SPORTS 2 
D'autres disciplines 
dans un faut&uil 


M.S.X est une marque déposée par Microsoft U.S.A, 


TENNIS 


Des effets très réalistes 


MAUBERT ELECTRONIC 
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alors fournir un tableau de 
26 colonnes sur 40 lignes. 

Calc et Graphe, bien qu’utili- 
sables séparément, sont prévus 
pour être combinés. On peut 
ainsi tracer avec la FA-10 toutes 
sortes de graphiques en couleurs 
à partir des données fournies par 
Calc : histogrammes, camem- 
berts ou graphiques en ligne. A 
noter que l’histogramme peut 
être à trois dimensions, grâce à 
un joli dessin en perspective 
effectué par la table traçante. 

Fichiers fonctionne comme 
une base de données, chaque 
« fiche » pouvant comporter 
jusqu’à douze rubriques. 

Pour chacun de ces program- 
mes, l'utilisateur peut sauvegar- 
der sur cassette l'application 
qu’il a définie ; nul doute que 
ces trois logiciels seront une aide 
intéressante pour ceux qui 
apprécient ie côté fonctionnel du 
PB-700. 


PM # 


UN LIVRE 


La face cachée 

du TO7-T07/70 
Jean-Baptiste Touchard 
Editions Cédic-Nathan 
Paris, 1985 

Broché, 160 pages 

Prix : 899 FF 


EMANDEZ à l'intérieur 

ce que vous ne voyez 

pas à l'extérieur. Tel semble être 

le propos de Jean-Baptiste Tou- 

chard dans cet ouvrage. Il nous 

fait en effet voyager dans les 

méandres du TO7, en des 

endroits que les manuels officiels 

ne nous laissaient même pas 
soupçonner. 

Après un aperçu des différen- 
tes zones de mémoire, un rappel 
des notions de numération et de 
codification nous permet de 
mieux comprendre les nombreux 
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Des programmes pour Macintosh 


NSATISFAIT des programmes pour Macintosh ou de leur 
nombre ? Trop fidèle à CP/M pour flirter avec un autre sys- 

tème ? IQ Software vient d’apporter une solution aux problèmes 
de compatibilité. Pour 395 dollars en effet (quelque 3 800 FF), 
cette société américaine propose un CP/M pour Macintosh en 
version 128 Ko. L'ensemble comprend aussi un compilateur € 
et le Macro-Assembleur de Digital Research. Le CP/M Macin- 
tosh n’est pour l'instant disponible qu'aux Etats-Unis. = 


CASSETTES ET 


DISQUETTES 


Masterpaint 
Utilitaire d’aide à ia 


création graphique 


Forth et Assembleur pour HP-71 B 


1, par impossible, vous vous 
sentez déjà limité par les 
possibilités de votre HP-71 B, le 
module Forth/Assembleur 
arrive à point pour vous appor- 
ter une bouffée d'oxygène... Le 
Basic vous paraît-il un langage 
trop figé ? 

Voici le langage Forth, redé- 
finissable et modulable à volonté 
par l’utilisateur. Quant à l’As- 
sembleur, il vous permettra 
d'écrire vos propres fonctions 
Basic, et de gagner du temps. 
Ame d'écrivain ? L'éditeur de 
textes devrait déjà vous faciliter 
l'ouvrage. 

Le Forth choisi par HP cor- 
respond au standard Forth 83, 
autrement dit la version la plus 
récente (la précédente étant le 
Forth 79). Par-dessus le marché, 
le constructeur nous octroie 
quelques petits « plus », comme 
une pile supplémentaire en vir- 
gule flottante de quatre registres 
X, Y,Z,T et LAST X, ce qui 
rappellera quelque chose aux uti- 
lisateurs de ia HP-41 C. Il est 
également possible d’appeler des 


exemples de ‘‘dump”’”’ émaillant 
les passages les plus délicats du 
livre. L’explication du codage 
d’un programme Basic et de ses 
variables, sans être propre au 
Thomson, est claire ; elle servira 
sûrement aux « bidouilleurs » 


ou, plus aux 
curieux. 

Plus intéressantes pour les ini- 
tiés, sont présentées les normes 
Vidéotex, les commandes sono- 
res des téléviseurs ou la com- 
mande du circuit de l’interface- 
jeux (PIA). On trouvera en 
annexe les schémas des connec- 
teurs et une présentation con- 
densée du processeur 6809. 

Bref, un livre qui peut aider 
beaucoup d'utilisateurs intermit- 
tents à devenir des passionnés. 

IL M 


simplement, 


mots Forth à partir du Basic ou 
des fonctions Basic à partir du 
Forth... L’Assembieur permet 
enfin l'écriture des fameux 
fichiers LEX (extension de lan- 
gage) et BIN (binaires) annoncés 
par le manuel du 71 B. Un 
fichier LEX peut servir, par 
exemple, à traduire les messages 
d’erreurs en français. 

1] ne faut cependant pas se 
leurrer, car l'assemblage est 
impossible sans l’aide des IDS 
(Internal Design Specification), 
quelques milliers de pages de 
documentation fournies par HP 
sur les différents aspects du 71, 
depuis la liste des 64 Ko du 
système d’exploitation jus- 
qu'aux plans complets de 
l’engin. 

L’Assembleur autorise aussi 
l'écriture de nouvelles primitives 
Forth si vous vous sentez à 
l’étroit avec les quelque 280 mots 
du vocabulaire de base. 

L'éditeur de textes sert essen- 
tiellement à la génération des 
fichiers sources destinés à l’as- 
semblage ou à la compilation et 
peut, éventuellement, être 
employé comme un traitement 
de texte rudimentaire. 

D’autres fonctions sont pré- 
sentes, comme KEYBOARD IS 
qui permet avec le module HP- 
IL, de choisir un autre clavier 
pour le HP-7]. On trouve aussi 
des fonctions de manipulation 
de fichiers (REPLACE, 
DELETE#, INSERT #, 
SEARCH.) que l'on aurait bien 
aimé avoir sur le 71 en version 
de base. 

Un manuel de 154 pages, en 
anglais, est joint à ce module. 
Attention : il ne s’agit pas d’un 
manuel d’initation au Forth (ni 
à l’Assembleur) dont les bases 
sont supposées acquises. Le tout 
devrait être disponible à un prix 
d’environ 1 800 FF tic. 


OA 5 


Cassette pour Oric 1 et Atmos 
Edité par Ere Informatique 
Prix : 250 FF 


Hadès 

Assembleur, désassembleur, 
sourceur, débuggeur, 
moniteur 

Cassette pour Oric 1 et Atmos 
Edité par Ere Informatique 
Prix : 250 FF 


Logo Koala 
Permet de construire les 
procédures Logo en dessinant 


directement sur la tablette 


Koala Pad 
Disquette pour Apple IH 
ou C.64 

Edité par BIP 

Prix : 455 FF 


Mocking Board : 
la voix d'Apple 


OUR ceux qui racontent 
leur ordinateur en décla- 
rant « Il ne lui manque que la 
parole » ou qui en ont assez 
d’un tête-à-tête passionnant 
mais désespérément muet avec 
leur Apple, Mocking Board est 
une solution. Conçue par la 
société Bip, Mocking Board, 
destiné à l’Apple Ile, fait office 
à la fois de synthétiseur de musi- 
que et de voix. | 
Le système se connecte sim- [ 
plernent, comprend deux haut- | 
parleurs incorporés (pour la sté- 
réophonie, rien que ça) et 6 
canaux répartis sur 3 voies. 

Mocking Board est livré avec 
un logiciel de démonstration et 
une disquette de développement. 
Doté d’un vocabulaire potentiel 
illimité (le système est fondé sur 
les phonèmes), Mocking Board 
permet aussi bien la synthèse du 
français, de l’anglais que de 
l’allemand. 

Une précision, Mocking 
Board peut être utilisé immédia- 
tement avec n'importe quel jeu. 
Le tout pour 3 000 FF tte. M 
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Amlettres . 
Traitement de texte 
Cassette pour Amstrad 
CPC 464 

Edité par Amsoft 

Prix : 149 FF 


Easy Calc 

Tableur 

Cassette pour Canon X-07 
{+ extension de mémoire) 
Compatible Péritel 

Edité par Powersoft 

Prix : 130 FF 


Assembleur/Désassembleur 
Cassette pour Canon X-07 
Version 16 Ko 

Compatible Péritel 

Edité par Logi’stick 
Distribué par DDI 

Prix : 1S0FF 


Guide du programmeur 

Idées, méthodes et routines en 
langage-machine pour créer 
ses propres applications 

sur Koala Pad 

Disquette pour toutes les 
versions Koala Pad 

Edité par BIP 

Prix : 455 FF 


(oi Chez Duriez :15 micros portatifs 
+9 domestiques 


Data Save 

Sept fonctions 
supplémentaires 

Cassette pour Oric 1 

Edité par ARG Informatique 


Prix : 120 FF 

D.A.0. 

Dessin haute résolution 
Cassette pour Oric 1 et Atmos 
Edité par ARG Informatique 
Prix : 100 FF 


Caractor 

Redéfinition de caractères 
Cassette pour Oric 1 et Atmos 
Edité par ARG Informatique 
Prix : 100 FF EH 


U CŒUR DU QUAR- 


PROGRAMME 


ANS son numéro 6, LIST 

a testé le Basic de l’Hec- 

tor 2HR +. Pour les possesseurs 
du modèle HRX, je voudrais 
signaler une version Basic 3X 
spécifique à ce modèle et qui 
peut leur apporter beaucoup de 
satisfactions. Ce Basic est dispo- 
nible sous forme de cartouche, 
de disquette ou de cassette au 
même prix que celui du modèle 


MSX 
Canon V 20 


est polyglotte 


2HR. Attention, la dernière ver- 
sion porte le n° 5. 

L'Hector HRX dispose du 
langage Forth résident et l’intro- 
duction du Basic ne supprime 
pas la possibilité de l'utiliser. 
Bien au contraire, une instruc- 
tion Basic (écrite ‘‘FORTH'’) 
permet de créer à l’intérieur d’un 
programme Basic des lignes en 
langage Forth. Le passage des 
paramètres d’un langage à l’au- 
tre est facilité par les instructions 
DPEEK et DPOKE (en Forth, 
l’utilisation courante de la pile se 
fait par deux octets à la fois) 
ainsi que VARPTR qui retourne 
Padresse du descriptif d’une 
variable Basic. 

L'appareil disposant d’une 
haute résolution graphique, que 
reste-t-il comme mémoire réelle- 
ment disponible avec ces deux 
langages résidents ? Réponse : 
32 Ko, car la mémoire vidéo se 
situe en dehors de l’espace nor- 
mal de 64 Ko ; elle reste cepen- 
dant facilement accessible grâce 
à VPEEP et VPOKE (V! et Ven 
Forth). 


Ainsi, un programme Basic 


POUR CHOISIR, pensez 
2 fois. 

1° Les performances de 
l'appared ? 

2° Les performances des_f 
programmes disponibles ? 
Duriez fau des sélections 
pour vous éviter des 
regrets. Vous êtes tranquille, 
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LA GAZETTE DE LIST. 


HRX peut contenir des lignes de 
Forth, des lignes en langage- 
machine (grâce à l’instruction 
USR) et, bien sûr, du Basic. 

Plus étonnant encore, le Basic 
est bilingue, et si vous avez une 
allergie profonde pour la langue 
de Shakespeare, frappez 
FRENCH et tous les mots-clés 
pourront être entrés en bon fran- 
çais (FOR devient POUR, 
PRINT devient ECRIS, etc.). 
Un programme écrit en français 
peut être listé ou poursuivi en 
anglais et vice-versa grâce aux 
mots ANGLAIS et FRENCH. 
Dans les deux langues, tous les 
mots-clés peuvent s’abréger par 
un point. Frappez ‘‘J.” lors de 
l'entrée d’une ligne et le mot 
“JUSQU'A’” apparaîtra à 
l'écran au prochain listage. 

Le Basic 3X permet de nom- 
breuses possibilités pour la sau- 
végarde sur cassette : 

e fonction VERIFY ; 

e PRINT # et INPUT # pour 
une ou plusieurs variables alpha- 
numériques ou numériques ; 

e LOADC et SAVEC pour une 
zone mémoire quelconque avec 
rechargement possible à une 
adresse différente ; 

. sauvegarde d’un écran ; 

° sauvegarde de la totalité des 
variables d’un programme ; 

e PROTECT pour protéger les 
programmes et déclencher un 
‘fauto-run”” ; 

et toutes les possibilités du 
2HR telles MERGE, APPEND, 
etc., mais sans passer au préala- 
ble par EDIT. 

Dans un autre domaine, les 
amateurs de jeux pourront uti- 
liser les nouvelles instructions 
sonores LASER, BELL, SIREN 
et SHOT. Pour le graphisme, 
tout ce qui a été dit dans le test 
du 2HR reste valable, mais nous 
disposons de nombreuses possi- 
bilités supplémentaires. 

Les textes peuvent s'afficher 
avec deux alphabets : STAN- 
DARD avec minuscules accen- 
tuées, possibilité du mode calque 
ou mode papier, vidéo normale 
ou inverse, et SPECIAL qui ne 
comporte que les majuscules 
mais offre la possibilité de mul- 
tiplier leurs dimensions en hau- 
teur et en largeur avec l’ordre 
SCALE. 

Pour les dessins, deux modes 
sont également disponibles : 
LITTLE et BIG. L’énorme 
avantage de BIG est qu’il permet 
de travailler aussi bien pour les 
tracés que pour les peintures 
avec une encre multicolore, ce 
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qui permet par exemple à BOX 
de produire sur i’écran un rec- 
tangle de 255 façons différentes 
suivant l'argument d’INK. 

A l’aide de FROM et de 
TOWARDS, on trace une suc- 
cession de lignes en ne précisant 
à chaque fois que le point d’ar- 
rivée. Autres instructions 
graphiques : 

e BRIGHT passe une couleur en 
demi-luminosité ; 

e RUB gomme ; 

e CLS({n) efface l’écran de la 
couleur n ; 

e FLASH(m,n) fait clignoter la 
couleur m, r fois ; 


DU CÔTÉ DES CLUBS 


Dans le département 
de la Charente 


E club Micromui, rattaché 

à la Fédération Natio- 

nale Microtel, reste ouvert toute 

la semaine, du lundi au diman- 

che, à partir de 9 heures et pro- 

pose, le mercredi de 18 à 20 heu- 

res, des cours d’initiation tous 
niveaux sur Goupil 2. 

Pour assister à ces cours, gra- 
tuits pour les adhérents, une par- 
ticipation forfaitaire de 150 
francs vous sera demandée. Si 
vous souhaitez adhérer au club, 
vous devez être âgé de 15 ans au 
minimum ; la cotisation est 
annuelle et coûte 290 francs. 

Pour tous renseignements, 
VOUS pouvez contacter Alain 
Jally au (45) 84 16 55 ou Joël 
Chardonne au (45) 84 18 18. 
Club Informatique Micromut 
28 allées de Blossac - BP 35 
16500 Confolens 


Dans le Pas de Calais 


A Maison du Temps Libre 
de Douvrin abrite l’Asso- 
ciätion Douvrinoise de Micro- 
informatique qui elle-même, 
moyennant une cotisation de 100 
francs par an, accueille ses adhé- 
rents tous les mardis et vendre- 
dis soirs à partir de 18 heures. 
Différents secteurs d’activités 
sont prévus : initiation et perfec- 
tionnement sur ZX 8i, TO 7et 
Silz 16, gestion et traitement de 
texte sur Silz 16 (avec l’aide d’un 
informaticien professionnel). 


e VOLUME permet de donner 
aux dessins certains effets de 
volume (élimination des lignes 
cachées). 

En ce qui concerne les instruc- 
tions de chaînes, signalons quel- 
ques originalités par rapport au 
2HR : 

e INKEY$ permet de saisir au 
vol la frappe d’un caractère en 
précisant le temps de scrutation ; 
e FREE donne soit le nombre 
d’octets disponibles, soit l’es- 
pace disponible réservé aux 
chaînes : 

e ASC accepte un deuxième 
argument et retourne alors le 


Association Douvrinoise de 
Micro-informatique 

Maison du Temps Libre 

2 rue Séraphin Cordier 

2138 Douvrin 

Téi : (21) 79 80 11 


En Seine Maritime 


Gainneville (près du 
Havre, sur la RN 15), la 
section informatique du Centre 
de Loisirs propose des cours 
d'initiation ouverts à tous 
(enfants à partir de dix ans et 
adultes). Ces cours ont lieu une 
semaine sur deux, à la bibliothè- 
que de Gainneville : le mercredi 
de 17 h 39 à 19h 30 pour les 
nouveaux venus et le jeudi de 18 
à 20 heures pour les « anciens ». 
Un samedi sur deux, de 10 à 
12 heures et toujours à la biblio- 
thèque, se tient une permanence 
où les membres du club échan- 
gent trucs et astuces. S'ils pos- 
sèdent déjà un ordinateur, ils 
peuvent l’apporter ; sinon, le 
club met à leur disposition un 
Dragon 32. 
La cotisation pour l’année 


code ASCII du énième caractère 
d’une chaîne ; 

e RECTIFY permet de modifier 
une variable, 


Signalons enfin aux amateurs 
qu'ils disposent de trois ports 
d’entrée-sortie entièrement réini- 
tialisables, de huit entrées ‘‘con- 
tacts’”’, et de deux entrées 
analogiques. 

Le Basic 3X est vendu environ 
350 FF sur cassette et 850 FF en 
cartouche. Il existe également 
une version disquette (380 FF 
seule) qui est donnée à l’achat 
d’un lecteur de disquette. 

MB 5 


scolaire 1984/85 (septembre à 
juin) s'élevait à 230 francs. 
Pour en savoir plus, vous 
pouvez vous renseigner auprès 
de Gilbert Rosay au (35) 
20 47 11. 
Centre de Loisirs de Gainneville 
76700 Gainneville 


Dans l'Essonne 


E club Micro-informatique 
d’Etampes, qui fonc- 
tionne au Centre Social sous 
l'égide de l'Association 
« Expression » depuis septem- 
bre 1984, étend son activité. 
Moyennant un « droit d’inscrip- 
tion » de 50 francs auquel 
s'ajoute une cotisation trimes- 
trielle de 100 francs, vous pour- 
rez participer, quel que soit votre 
niveau, aux cours d’informati- 
que dispensés sur Amstrad CPC 
464 et Texas TI 99/4A. 

Des cours d'initiation ont lieu 
chaque mardi, de 18 à 19 heu- 
res pour les enfants, et de 19 à 
20 heures pour les adultes. 

Deux permanences sont éga- 
lement assurées, le jeudi à partir 


Faites-vous connaître. 


i vous faites partie & 
tif, où l’on apprend et 


S 


loin de chez eux. 


n club d’informatiqué, sans but lucra- 
pratique la programmation et si 
vous recherchez de nouveaux adhé® 
tence. En lisant votre adresse dans ces 
lecteurs seront contents d’apprendre que voté 


ts, signalez-nous votre exis- 
olonnes, beaucoup de 
club n’est pas trop 
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de 20 h 30 et le vendredi à par- 
tir de 18 h ; elles permettront à 
tous d’échanger expérience et 
idées et de consulter les livres et 
revucs du club. 

Club de Micro-informatique 
Centre Social 

Association « Expression » 
Place Saint Gilles 

91150 Etampes 

Tél. : (6) 494 59 39, 

(6) 494 78 29, (6) 494 96 42. 


En Seine et Marne 


E Microtel Ciub de Melun 
serait heureux d’accueil- 

lir de nouveaux adhérents cha- 
que jeudi soir de 18 à 22 heures. 
Au programme, initiation à l’in- 
formatique, pratique des langa- 
ges de programmation (Basic, 
Pascal, Forth, Logo), fabrica- 
tion de cartes (interface minitel 
par exemple) et de robots, mon- 
tage d'ordinateur en kit. 
Microtel Club Melun 
6 rue Paul Valéry 
77000 Melun 
(6) 068 67 83 


De particulier à particulier 


S Î vous avez du matériel 
à vendre, vous pouvez 
contacter la Maison de Quartier 
de Courcouronnes qui organise 
le dimanche 10 mars prochain, 
de 10 à 18 heures, sa deuxième 
journée du micro-ordinateur 
d'occasion. La réservation d’un 
stand vous coûtera 50 francs, et 
vous pourrez vendre ou acheter 
du matériel directement de par- 
ticulier à particulier. L'entrée 
visiteur est de 5 francs et seule- 
ment 10 francs par famille. 


Vous trouverez sur place un 
buffet et une animation (jeux, 
librairie informatique.…..). 
Maison de Quartier de 
Courcouronnes 
Le Mail de Thorigny 
91000 Courcouronnes 
Tél. : (6) 077 03 95 Li] 


UN PETIT TOUR CHEZ LE LIBRAIRE 


Pratique des Apple 
Volume 1] 

Basic Applesoft 
Henri Lilen 
Editions Radio 
Paris, 1984 
Broché, 190 pages 
Prix : 105 FF 


Pratique des Apple 
Volume 2 

Au-delà du Basic avec 
l’Assembleur 

Alain Andrieux 

et Gérard Creuzet 
Editions Radio 

Paris, 1984 

Broché, 198 pages 
Prix : 120 FF 


Guide du VG 5000 Philips 
Benoît Amsler 

et Christophe Bardon 
Editions Edimicro 

Paris, 1984 

Broché, 176 pages 

Prix : 88 FF 


Oric Atmos, vos programmes 
Michel Bussac et 

Gil Espèche 

Editions Cédic/Nathan 
Collection Micromonde 
Paris, 1984 

Broché, 128 pages 

Prix: 35 FF 


Tout savoir sur Lynx 
Bruno Vanryb et 
Roger Politis 
Editions Eyrolles 
Paris, 1984 

Broché, 164 pages 
Prix :95FF 


NULL 


La solution RS-232 
Joe Campbell 
Editions Sybex 
Paris, 1984 
Broché, 200 pages 
Prix : 148 FF 


Initiation aux bases de 
données 

Nigel Freestone 
Editions Belin 
Collection Modulo 
Paris, 1984 

Broché, 118 pages 
Prix : 95 FF 


La conduite des Atari XL 
600 XL/800 XL/1245 XLD 
Patrick Oros 

Editions Eyrolles 

Paris, 1984 

Broché, 240 pages 

Prix : 98 FF 


La micro en 100 questions 
Brune de Latour 

Editions Cedic/Nathan 
Collection Micromonde 
Paris, 1984 

Broché, 160 pages 

Prix : 399 FF 


Les dernières parutions de 


LL 


Tout sur le MOS5 
Jean-François Bieber, 
Alain Perbost et 
Gilles Renucci 
Editions Edimicro 
Paris, 1984 

Broché, 256 pages 
Prix : 98 FF 


Initiation pratique à 
l'informatique 

Jean-Luc Charron, 

Elian Fanouillet 

et Monique Yelloz-Danhiez 
Editions Nathan-Technique 
Paris, 1984 

Tome 1 - Information et 
programmation 

Broché, 128 pages 

Prix : 58 FF 

Tome 2 - Fichier et analyse 
Broché, 176 pages 

Prix : 69 FF 


Encyclopédie de la 
micro-informatique 
Peter Rodwell 
Editions Hachette 
Informatique 
Paris, 1984 

Relié, 206 pages 
Prix : 149 FF 


Librairie 
Informatique 


d'Aujourd'hui 


PUS VOS lvres et 
TOUTES vos A7 
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sont disponibles à la 


LIBRAIRIE INFORMATIQUE D’AUJOURD’HUI 


253, rue Lecourbe, 75015 Paris. © (1) 82872 88 - Métro : Convention ou Boucicaut, ouvert du lundi au samedi de9hà19h 
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: PETITE HISTOIRE DES LANGAGES : 


LE PASSÉ MÉCONNU 
DU BASIC 


URIEUSEMENT, alors que les documents 
abondent sur la façon dont les langages de 
programmation sont nés et parvenus à maturité, 
on ne trouve guère de matériaux pour retracer la 
trajectoire de celui qui est actuellement le plus 
répandu sur les micro-ordinateurs : le Basic. 
Et pourtant, sa petite histoire existe, 


nous l'avons retrouvée. 


On ne voit jamais Popeye sans 

épinards ni de chiens sans puces ; 
pas de micro non plus sans Basic. 
Faudrait-il croire que le Basic a été 
inventé pour les micros ? Que ceux-là 
n’ont pu exister que parce qu’il leur 
offrait sa simplicité ? On pourrait s’y 
tromper. Pourtant, l’histoire est for- 
melle : il n’y a aucun rapport effectif 
entre ces deux inventions, dont la con- 
jugaison a connu le succès prodigieux 
que l’on sait. 


En ce qui concerne les premiers 
micro-ordinateurs, ils sont nés de la 
commercialisation de microprocesseurs 
dont les inventeurs ne cherchaient cer- 
tainement pas, au départ, une utilisation 
en langage évolué. Les premiers appa- 
reils disponibles, américains notam- 
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ment, étaient de simples cartes (parfois 
avec un clavier hexadécimal !) qu’il fal- 
lait programmer directement en Assem- 
bleur. L'idée de recourir à des langages 
du genre de Basic n’aurait certainement 
pas paru naturelle à ces pionniers. 


Inversement, John Kemeny et Tho- 
mas Kurtz auraient de toute évidence 
haussé les épaules si on leur avait pré- 
dit, en 1965, que leur travail pédagogi- 
que prendrait, quelque quinze ans plus 
tard, une telle importance et qu’il con- 
tribuerait de cette façon à l’explosion de 
la micro-informatique ! 


Classiquement, l’histoire du Basic se 
résume à quelques lignes : « Basic est 
né, vers 1965, pour des besoins univer- 
sitaires au Dartmouth College, dans le 
cadre du time sharing ; il a connu la 


gloire avec la fulgurante percée d’Ap- 
ple et de ses concurrents vers la fin de 
la décennie suivante ». Il semble 
aujourd’hui très difficile de se procurer 
un exemplaire du premier manuel con- 
sacré à ce langage. 


Un travail 


universitaire 


La biographie de John Kemeny, au 
moins, est maintenant assez connue, en 
partie grâce à un incident indépendant 
de notre sujet : la catastrophe nucléaire 
de Three Mile Island, en 1979, survenue 
en plein cœur d’une centrale impor- 
tante, proche de la ville d'Harrisburg en 
Pennsylvanie. A la suite de cette catas- 
trophe, John Kemeny fut désigné 
comme président de la commission 
d’enquête. Pendant sept mois, il s’est 
attaqué au redoutable problème de 
savoir si cet accident ne devait pas son- 
ner le glas d’une industrie d’un poids 
économique et politique si essentiel à 
notre société dévoreuse d’énergie. On 
sait que ses conclusions furent assez 
optimistes : espérons qu’il avait de bon- 
nes raisons scientifiques pour cela ! 

Né en Hongrie en 1926, John Kemeny 
débarque aux Etats-Unis en 1940, entre 
comme étudiant à l’Institute for 
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Advanced Study ([AS) de Princeton où, 
après avoir servi comme assistant d’Al- 
bert Einstein pendant un an, il obtient 
en 1949 un Ph.D. en mathématiques. 
Son premier travail scientifique sérieux 
n’avait pas non plus été très banal : il 
fit partie de l’équipe de Los Alamos 
(déjà le nucléaire) qui, en 1945, résol- 
vait quasiment « à la main » les équa- 
tions différentielles nécessaires à la pré- 
diction du déroulement de l'explosion 
de la bombe, avec comme seule aide des 
machines de bureau de type « Mar- 


dans la collection Life publiait — rare 
honneur — la photographie de Kemeny 
entouré de jeunes étudiants, expliquant 
qu'il parcourait inlassablement les 
Etats-Unis afin de persuader les meil- 
leurs scientifiques de ne pas se détour- 
ner de cette science pour devenir ingé- 
nieurs ! On voit que l’homme est plu- 
tôt peu commun, mais l’histoire de l’in- 
formatique est assez riche en ce genre 
de canards... 

Dartmouth est le nom d’un vieux col- 
lège du célèbre groupe d’universités de 


ÇA FAIT DIX ANS QUE BASIC 
S'ADRESSE AUX PÉBUTANTS ! 


chant » et des tabulatrices IBM à car- 
tes perforées du nom bizarre de « col- 
lators » sous la direction de Staniey 
Phillips Frankel, Nicholas Constantine 
Metropolis et, surtout, son compatriote 
John (Janos) von Neumann, émigré dès 
1930, également universitaire hors pair 
et gloire de Princeton. 


Un article important publié dans le 
Scientific American en 1955 (Man View- 
ed as a Machine), partiellement inspiré 
justement de conférences de von Neu- 
mann à l’IAS, révéla son nom comme 
celui d’un vulgarisateur de talent. Il était 
déjà professeur au Dartmouth College 
depuis 1953. En 1957, il publiait en col- 
laboration Introduction to Finite 
Mathematics suivi de Finite Mathema- 
tics with Business Applications (1962), 
bien connus en France car traduits par 
Dunod dès 1964, deux des premiers 
livres à populariser les fameuses 
« mathématiques modernes », ici tour- 
nées vers les activités humaines et la ges- 
tion. En 1965, l’ouvrage consacré par 
David Bergamini aux mathématiques 
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la côte Est. Il occupe toute une petite 
ville : Hanover, à 250 miles de New 
York vers Montréal, à la frontière entre 
le New-Hampshire et le Vermont (un 
souvenir personnel : introduit auprès de 
Kemeny durant l’été 1967 par l’intermé- 
diaire d’un ami commun et parcourant 
à sa recherche pour la première fois un 
campus américain, j’ai dû faire deux 
fois le tour de l’agglomération en guet- 
tant le collège avant de comprendre 
qu’il était à la fois partout et nulle part ! 
Même le boulanger était presque de la 
maison). C'était là que Georges Sti- 
bitz, des Bell Telephone Laboratories 
(ceux qui inventeront le transistor), 
avait installé le 11 septembre 1940 pour 
le congrès de l’ American Mathematical 
Society, des télétypes reliés à l’un des 
précurseurs à relais (mais non program- 
mable) de l’ordinateur, le complex num- 
‘ber calculator, qu’il avait construit en 
avril 1939. 


Cette anecdote est, d’une certaine 
façon, directement liée à la naissance de 
Basic car la machine de Stibitz préfigu- 


rait l’utilisation d’un matériel informa- 
tique à partir d’un terminal, exactement 
comme dans le concept de temps par- 
tagé (time sharing). Ce concept com- 
mençait à se répandre lorsque John 
Kemeny décida, en 1964, poussé par 
John McCarthy, père de Lisp, de créer 
le Dartmouth Time Sharing System 
(DTSS). On sait que ce procédé, alors 
tout à fait révolutionnaire (il avait été 
inventé au MIT en 1959), consistait à 
faire travailler ensemble — apparem- 
ment — plusieurs utilisateurs sur la 
même unité centrale, chacun pouvant 
imaginer être le seul à accéder aux res- 
sources de l’ordinateur par l’intermé- 
diaire de sa machine à écrire (il n’y avait 
pas encore d’écran à l’époque). 


John Kemeny s'était adjoint Thomas 
Kurtz, lui aussi mathématicien Ph.D. de 
Princeton en 1956 et enseignant à Dart- 
mouth depuis. Leur travail essentiel, 
avec le recui du temps, n’est pourtant 
pas le DTSS mais plutôt, bien entendu, 
une réalisation a priori annexe, le Begin- 
ner’s All-purpose Symbolic Instruction 
Code (en d’autres termes, le Basic) 
qu’ils mirent au point entre 1963 et 
1965. Fixer une date plus précise sem- 
ble difficile, même si les auteurs se réfè- 
rent (d’après un article de Computer 
Language de juillet 1984 et une inter- 
view dans PC World de novembre 1984) 
à... 4 heures de l’après-midi du 1° mai 
1964, quand, pour la première fois, un 
programme Basic tourna sans faute sur 
un General Electric 225 piloté par 
télétype, créant en même temps ce lan- 
gage et le système de temps partagé de 
Dartmouth. 


Il serait faux de croire que ces deux 
professeurs cherchaient ainsi à rendre 
service à des entreprises bloquées par les 
délais prohibitifs que prenaient les allers 
et retours entre le service informatique 
et les machines inabordables. Leur but 
n'était nullement économique, mais 
essentiellement pédagogique. En fait, le 
recours à l’ordinateur sous forme de 
libre-service, sans passage obligé par des 
spécialistes en blouse blanche, était tout 
simplement destiné à aider leur ensei- 
gnement mathématique (toujours dans 
le but de motiver le plus grand nombre 
possible d'étudiants aux maths). 


Basic est, en effet, le premier langage 
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simple et vraiment interactif (le merveil- 
leux INPUT...). A l’époque, seul For- 
tran existait réellement ; c’était le lan- 
gage d’IBM par excellence. Algol 
n’avait pas pris la place que les univer- 
sitaires auraient voulu lui donner ; Lisp 
était trop spécialisé et Cobol, bien 
entendu en pleine activité déjà, ne pou- 
vait servir qu’à des activités trop éloi- 
gnées des besoins des étudiants. Mais 
Fortran était, surtout à l’époque, d’un 
maniement assez pénible ; il fallait 
absolument disposer d'instructions 
assez rustiques, assimilables en quelques 
heures ; une trop longue initiation ne 
pouvait être envisagée. Il était donc 
nécessaire d’extraire de Fortran un sous- 
ensemble assez efficace pour les besoins 
limités que visait le Dartmouth College 
et, surtout, assez simple comme le 
prouve le choix même des termes (begin- 
ner = débutant, all-purpose = tous 
usages) et, évidemment, le jeu de mots 
qu'est l’acronyme lui-même (basic = de 
base). 


Onafaitdes |. 


| progrès depuis 


C’est donc une erreur que de dire, 
comme on le lit parfois, que Basic était 
destiné à faciliter l'apprentissage de For- 
tran ou de l’informatique ; il ne s’agis- 
sait, en fait, que de rendre presque 
immédiat le recours aux possibilités 
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d’un ordinateur pour rendre plus 
attrayant le métier de mathématicien 
aux yeux d’étudiants plus intéressés par 
le dollar ou le fer à souder que par les 
décimales de pi et autres cycloïdes 
raccourcies. 


On dit que John Kemeny regrette par- 
fois que son projet initial n’ait pas réel- 
lement réussi à bouleverser suffisam- 
ment l’enseignement des mathématiques 
— quoique tout ne soit pas dit, loin de 
là, en ce domaine. Ce qui est certain, et 
éclaire mieux les raisons de la longue 
guerre Basic/LSE en France, c’est que 
cette toute première version de Dart- 
mouth était, sans faire injure à John 
Kemeny, bien médiocre, surtout pour 
des yeux de 1985. 


Jacques Hebenstreit a raison de rap- 
peler que le IF-THEN manquait alors 
de ELSE, qu'il n’y avait pas de WHILE 
ni de REPEAT, ni de procédure, et qu’il 
exista très vite de trop nombreuses ver- 
sions incompatibles. La description du 
tout premier Basic implanté sur leur 
machine, vers 1974 ou 1975, par la 
société française MBC de Georges Cot- 
tin et Georges Bouhot, créateurs 
d’Aicyane, est éloquente. La liste des 
instructions en est bien pauvre : STOP 
INSERT DELETE DELETEIn] 
SCRATCH CONTINUE LIST (trois 
types différents) FIXED{n] DIM (une 
dimension, huit octets par élément seu- 
lement) INPUT LET DISP PRINT 
TAB GOTO GOSUB RETURN IF- 
THEN. 


On peut le constater : rien pour les 
fichiers. 11 faudra attendre d’autres ver- 


sions plus satisfaisantes pour que l’on 
puisse commencer à les traiter et à uti- 
liser des réels (FLOAT[n}). Surtout pas 
de FOR...NEXT (qui était pourtant, 
sauf erreur, dans le premier Basic de 
1964). Bien entendu des problèmes de 
taille mémoire peuvent expliquer cette 
austérité. Rien non plus sur les ordres 
graphiques (DRAW...) qui ne virent le 
jour que vers 1970 (les machines de 
l’époque étaient évidemment incapables 
de gérer de telles instructions, pour les- 
quelles un écran est quasiment indispen- 
sable), ni sur le maniement des chaînes 
de caractères, point fort par exemple du 
I.SE destiné en particulier aux applica- 
ions non mathematiques. Ces ajouts 
trop tardifs sont, sans aucun doute, la 
cause des difficultés insurmontables que 
rencontra la tentative de normalisation 
de l’ANSI, plus ou moins avortée, de 
1979, qui ne pouvait qu’aboutir à un 
noyau beaucoup trop restreint — et que 
certains qualifient, à tort, de Basic 
« standard ». 


Les évolutions ultérieures de ce lan- 
gage et son avenir méritent encore bien 
des développements. En particulier, 
avec la révolution que Bill Gates et Paul 
Allen provoqueront en écrivant le pre- 
mier logiciel de Microsoft pour l’Altair, 
ou avec le merveilleux True Basic que 
Kemeny et Kurtz viennent de nous 
offrir. L’histoire n’est sans doute pas 
finie et Dartmouth est encore un endroit 
où, à chaque instant, il se passe quel- 
que chose ! 


André WARUSFEL 


€ T'AVAIS PREVENUE CLONSE 


ROGRAMHE TES PARCOURS 


À L'AVANCE : 
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Connaissez-vous un esprit plus 

secrét, une âme plus cryptique, 
un surmoi plus dissimulateur que celui 
de votre ordinateur ? Si on laisse de côté 
ceux qui se servent d’un ordinateur 
comme on prend le métro, sans jamais 
programmer et qui par conséquent ne 
sont pas des lecteurs de LIST, le 
branché-info moyen doit passer 
97,32 % de son temps de clavier à 
essayer de découvrir ce que sa bécane lui 
cache. 

Ah, le don de dévoiler le voilé, les 
lunettes à voir l’invisible... Mais c’est 
qu’elles existent, ces lunettes, et chez 
Commodore, on appelle ça des 
guillemets. 


Rappelez-vous, quand vous avez 
commencé à donner des coups de 
hochet sur votre 64, votre VIC ou votre 
PET, vous étiez tout bébé, et bien au sec 
dans vos petits élastiques, mais vous 
vous demandiez quand même ce qui se 
passait, lorsqu’essayant de déplacer un 
curseur en arrière après avoir ouvert des 
guillemets, vous vous retrouviez avec 
une tripotée de hiéroglyphes biscornus 
qui vous plongeaient dans une rogne 
Conan-le-Barbaresque mâtinée d’un 
soupçon d’étonnement socratique. 


C’était hier. Maintenant, les caractè- 
res de contrôle les plus fréquents n’ont 
guère de secret pour vous. Pourtant, 


j Î r COMME... 
Se servir de l'ordinateu 
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ONT 


… LES CONTRÔLES 


DU CARACTÈRE 


ES Commodore 4000 grand écran ou 8000, Vic 20 ou 
C.64 font souvent appel à des caractères de commande, 
Certains sont connus, d'autres moins, et le bon usage des 
guillemets permet de les rendre visibles, 
mais aussi de les utiliser plus commodément. 


n'en reste-t-il pas d’autres, plus discrets, 
moins voyants, mais à la chair plus fine 
et au parfum plus délicat ? C’est eux 
que nous allons découvrir aujourd’hui. 


Lorsque vous mettez sous tension un 
CBM 8000, il est en mode minuscu- 
les/majuscules ; lorsque vous mettez 
sous tension un 4000 grand écran, il est 
en mode majuscules/graphiques. Vous 
voulez changer, que faites-vous ? 
POKE 59468,12 pour passer en majus- 
cules/graphiques et POKE 59468 ,14 
pour passer en minuscules/majuscules ? 
C’est une solution, mais ce n’est pas la 
seule. 


(Mau vais) | 
caractère de commande 


)1. 


Essayez donc, à la mise sous tension, 
d'afficher un bout de texte, et, par 
exemple un gros pavé inversé : 

100 PRINT‘‘{ICLRIJCOUCOU MA- 
MAN !” 

110 FOR I=1 TO 10 

120 PRINT‘{[RVS][10 ESPACES] 
{OFF]"" 

130 NEXT I 


Certes, le texte est en majuscules sur 
4000 GE et en minuscules sur 8000, mais 
il y a une autre différence : là où le 4000 
affiche un pavé carré, le 8000 affiche 
une manière de maillot à rayures ; les 
lignes ne sont pas jointives. C’est 
qu’indépendamment des questions de 
majuscules, existent un mode dit 
“texte” et un mode dit ‘‘graphique””. 
Le premier ajoute des espaces entre les 
lignes pour plus de lisibilité, l’autre les 
resserre pour permettre des verticales 
continues. Or le passage de l’un à l’au- 
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tre ne se fait pas par POKE, maïs avec 
un PRINT et un caractère de com- 
mande. Le 8000, à la mise sous tension, 
est en mode TEXTE. Faites PRINT 
CHR$(142) : vous verrez votre écran se 
ratatiner, votre message personnel s’af- 
ficher en majuscules, et votre pavé per- 
dre ses rayures pour devenir un impres- 
sionnant monolithe. Le 4000 GE, à la 
mise sous tension, est en mode GRA- 
PHIQUE. Faites PRINT CHRS(14) : 
vous verrez votre écran éclater (le chan- 
gement de mode n’attend pas la synchro 
image, c’est parfois spectaculaire), votre 
pavé se rayer, et votre salutation s’affi- 
cher en minuscules. 


Naturellement, si vous aimez les tex- 
tes tassés ou les graphiques lâches, rien 
ne vous empêche de faire suivre votre 
PRINT CHRS(142) d’un POKE 
59468,14 ou votre PRINT CHRS$(14) 
d’un POKE 59468,12. 


Cela dit, sovez franc : lorsque vous 
lisez dans une liste PRINT CHR$(147), 
frappez-vous au clavier CHR$(147) ? 
Non, bien sûr. Vous ouvrez des guille- 
mets, vous frappez SHIFT CLR, un 
cœur en vidéo inversée apparaît et 
l’écran ne s’effacera qu’à l’exécution. 
C’est donc que le CHR$(147), lorsqu'il 
est précédé de guillemets, prend la 
forme d’un caractère visible exécutable 
plus tard, comme les caractères de 
déplacement du curseur. 


Preuve : 
PRINT CHRS$(147) 
L'écran s’efface. 
PRINT CHRS(34);CHRS$(147) 
L'écran ne s’efface pas, mais le cœur à 
l’envers apparaît derrière les guillemets. 

Hé bé alors, nyapluquà continuer : 
PRINT CHRS(14) 
L'écran passe en mode TEXTE (minus- 
cules et lignes écartées). 
PRINT CHRS$(34);,CHR$(14) 
Le caractère quatorzième apparaît enfin 
à nos yeux émerveillés. Il est aussi sobre 
que puissant et se présente sous la forme 
d’un ‘‘n’’ en vidéo inversée. 
Continuons. 
PRINT CHR$(34);,CHRS(142) 
Voilà le mode GRAPHIQUE ‘‘caracté- 
risé”” à son tour : comme on pouvait s’y 
attendre puisque la différence entre 142 
et 14 est de 128, c’est un ‘N°’ majus- 
cule en vidéo inversée. 
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Alors, de là à avoir envie d’incorpo- 
rer ces caractères dans une chaîne, 
comme un CLR... Seulement, s’il y a 
une touche CLR, il n’y a pas de touche 
TEXTE/GRAPHIQUE. Et si l’on 
essaie d’écrire en vidéo inversée derrière 
des guillemets ouverts, on a un ‘‘r”’ 
inversé, et des caractères normaux 
ensuite. Rusons donc. 


Sur ma ligne 100, après le cœur du 
CLR, j'insère un espace avec la touche 
SHIFT INST. Mais je ne suis guère 
avancé, car un espace inséré est en mode 
guillemets. Je vais donc frapper un 
espace, pour faire croire à la machine 
qu’on n’est plus en mode QUOTE. 
Mais ce n’est là qu’une feinte ! Un petit 
coup de curseur gauche et me voici sur 
le blanc, tandis que l’ordinateur ne se 
doute de rien. Alors, rapide tel le 
Cheyenne aux souples mocassins, je 
passe en vidéo inversée, mais cette fois, 
en mode direct : aucun caractère n’ap- 
paraît à l’écran. Et quand je frappe la 
touche du ‘‘n””, il est bel et bien inversé. 
Un coup d’index preste et discret sur la 
touche RETURN, ma ligne est validée, 
et le caractère sera lu à l'exécution 
comme un CHRS$(14). 


Frappons en mode direct PRINT 
CHRS(142) pour rendre l’expérience 
plus concluante, puis RUN. Ce petit 
bout de ‘‘n’” inversé de rien du tout a 
suffi pour faire repasser l’écran en mode 
TEXTE. Quand on cherche à gagner de 
la place en mémoire, c’est radical : sion 
profite d’un PRINT déjà existant, ça 
coûte un octet contre dix pour POKE 
59468,14. 


\Coniment faire 


grelotter un CBM. 


Le vénérable code ASCII a prévu de 
faire tintinnabuler les vieux télex, et les 
CBM 8000 et 4000 GE ont suivi le mou- 
vement. Il suffit d’un PRINT CHRS(7) 
pour les faire sonner un coup, et du 
même en shifté, CHR$(135) pour les 
faire sonner deux coups. Là encore, 
notre légitime curiosité doublée des 
moyens techniques de l’assouvir, nous 
fait chercher à ‘‘voir”” ce qui s’entend : 
PRINT CHRS(34);; CHRS$(7):PRINT 
CHR$(34);,CHR$(135). 


Cette fois, ce sont des ‘‘g’” inversés, 


Un cœur inversé ” 
efface l'écran 


le minuscule et le majuscule, qui nous 

montrent à quoi ressemble la sonnette. 

Pour les reproduire à l’intérieur d’une 

chaîne entre guillemets, même système : 

100 OPEN 15,8,15,‘*10°? 

110 OPEN 82,8,2,'‘ZXCFWR,S,R°”: 
GOSUB 900 

120 END 

900 INPUT # 15,E1,E2$,E3,E4:IF EI 

< > 0 THEN RETURN 

910 PRINT‘‘{RVSJERREUR NO’; 
El;‘<:":E2$ 

920 PRINT'‘‘PISTE’’;,E3; ‘SEC 
TEUR’’;E4 

930 CLOSE 15:END 


Ramener le curseur sur [RVS], frap- 
per la séquence SHIFT INST, 
ESPACE, CURSEUR GAUCHE, 
RVS, SHIFT G. Un ‘‘g”’ inversé appa- 
raît. Exécutez le programme avec les 
portes des drives ouvertes si vous avez 
un fichier ‘‘zxcfwr’” ! Le message d’er- 
reur sera précédé d’une sonnerie à vous 
tirer de votre lecture. 


Deux caractères bien commodes pré- 
sents sur le 8000 et le 4000 GE, et dont 
on peut déplorer qu’ils aient été lâchés 
sur VIC et C.64, sont le 16 et le 150. 

Le CHRS$(16) a la vertu d'effacer tout 
le reste d’une ligne, après l’endroit où 
se trouve le curseur. Le CHR$(150), lui, 
efface toute la ligne avant l’endroit où 
se trouve le curseur. Pour voir à quoi 
ils ressemblent, PRINT CHRS(34); 
CHRS$(16) et PRINT CHRS$(34);,CHRS 
(150) nous montrent respectivement un 
“p’’ et un ‘‘V” shifté, l’un et l’autre 
inversés. Le premier surtout est bien 
commode : 

100 PRINT . 

110 INPUT ‘DRIVE’; DNS 

120 IF DN$ < > ‘0 AND DNS 
< > “1” THEN 110 


Ce machin-là affichera la question 
autant de fois qu’il le faudra pour obte- 
nir une des deux réponses exigées, au 
risque de ficher en l’air le reste de 
l'écran dans l’hypothèse d’un utilisateur 
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mal embouché ou obtus. Il serait alors 
opportun de prévoir. Ramenant le cur- 
seur sur le D de DRIVE, on insère deux 
espaces. Espace inséré = mode guille- 
mets, disions-nous ? Profitons de l’au- 
baine pour remplir le premier d’un 
curseur haut. Le second sera déguille- 
mettisé (?) avec ün espace, puis on y fera 
la séquence CURSEUR GAUCHE, 
RVS, P, suivie, naturellement, d’un 
RETURN. . 


L'effet produit sera peu spectaculaire 
au premier coup, puisque le CHRS$(16) 
n’effacera qu’une ligne vide. Mais si on 
répond ‘‘3”” à la question, le curseur- 
haut reviendra à la ligne qu’il vient de 
quitter, et l’effacera avant d’afficher 
derechef la question et de lire la réponse. 
L'utilisateur réfractaire peut écrire 
“TROIS VIRGULE SEPT” en toutes 
lettres si ça lui chante, la question sera 
toujours reposée au même endroit et sur 
une ligne propre. 


A noter que même chez les grands, on 
peut se tromper : Vous avez remarqué 
que tous ces caractères vont par paire, 
Pun shifté, l’autre pas. Le shifté a donc 
un code ASCII supérieur de 128 à celui 
de l’autre. Sauf pour CHRS(150) et 
CHRS$(16). Correspondant au CHRS 
(150), on aurait attendu CHRS$(150 — 
128 = 22), et on a CHRS$(16). Mais $16, 
en hexadécimal, c’est 22 en décimal. De 
là à soupçonner en pro de chez Com- 
modore d’avoir eu un moment 
d’inattention… 


‘Si vous voulez : 


: passer à tab... 


Attaché que je suis à ma vieille bête, et 
résolument opposé à la conception mer- 
cantile de l’ordinateur jetable dès qu’il 
est réputé démodé, je vous livrerai 
encore un des secrets du 4000 GE, le 
FAT -40 comme disent les anglo-saxons, 
avant de donner quelques tuyaux pro- 
pres au VIC et au C.64. C’est que le 
FAT-40, ce n’est pas un gros 4000, c’est 
un petit 8000. Entre autres fioritures, il 
comporte des taquets de tabulation. 
Mais ça, Procep ne me l’a jamais 
signalé, que je sache. Essayez donc 
ceci : 
100 PRINT‘‘{[42 ESPACES]”’ 

110 PRINT‘*COL.ICOL.2COL..3 

COL.4” 


Maintenant, revenez à la ligne 100, 
déplacez le curseur de 12 espaces, et 
frappez la séquence RVS SHIFT I. 
Avancez de 6 espaces et frappez la 
même séquence, puis de 15 espaces et 
encore la même séquence. Sur la ligne 
110, placez le curseur sur le deuxième 
C, et faites la séquence INST, ESPACE, 
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RO =. 


CURSEUR GAUCHE, RVS, I, OFF. 
Cette séquence sera répétée pour le troi- 
sième et le quatrième C. 


Que s'est-il passé ? La ligne 100 a 
posé en mémoire des taquets de tabula- 
tion, avec un ‘‘l”” shifté inversé, corres- 
pondant au CHR$(137). Le ‘‘” non 
shifté inversé de la ligne 110, CHRS$(9), 
fait afficher les éléments qui les suivent 
au tab précédemment établi. Faites 
GOTO 110 autant de fois que vous vou- 
drez, les colonnes seront séparées. Mais 
si vous faites RUN ou GOTO 100, un 
deuxième passage sur les taquets les 
annule et l’effet de tabulation disparaît. 


Place 


aux jeunes 


Que les explorateurs de VIC et autres 
C.64 ne m’en veuillent pas de les avoir 
fait attendre un peu, et s’ils ont sauté 
ce qui précède, qu’ils veuillent bien le 
parcourir quand même. Ils en retien- 
dront la leçon suivante : chez Commo- 
dore, un certain nombre d’opérations 
importantes sont effectuées grâce à des 
caractères de commande ; ces caractè- 
res peuvent naturellement être désignés 
par un CHRS, mais ils peuvent être 
incorporés dans une chaîne de caractè- 
res faisant l’objet d’un PRINT. Au lis- 
tage, ils se présentent alors comme des 
caractères inversés. Pour les caractères 
shiftés, comme sur les CBM, il faut se 
livrer à la gymnastique précédemment 
décrite afin de les obtenir à l’écran. Ce 
sera surtout utile pour le CHRS$(142) 


(majuscules/graphiques). On peut aussi 
chercher à reproduire les caractères de 
couleur shiftés, pour mieux connaître 
son clavier. 


Mais sur le VIC et le C.64, il existe 
une manière commode d’obtenir ceux 
qui ne sont pas shiftés : c’est la touche 
de contrôle (CTRL). 


On pourra reproduire les mouve- 
ments de curseur avec d’autres touches 
que celles qui sont prévues pour. Par 
exemple : CTRL Q sort un curseur bas, 
CTRLT détruit le caractère précédent, 
CTRL S amène le curseur en haut et à 
gauche de l’écran, CTRL point-virgule 
reproduit un curseur droite, CTRL M, 
un retour-chariot. Les couleurs aussi 
utiliseront le même principe, puisque 
CTRL E donne le blanc, CTRL sterling, 
le rouge, CTRL flèche haut, le vert et 
CTRL =, le bleu. 


Sur Vic 20 et C.64, pas de lignes non- 
jointives, maïs c’est tout de même par 
CHRS$(14) et CHRS$(142) que l’on passe 
le plus commodément par programme 
de majuscules en minuscules et récipro- 
quement. Or, ici, la ‘manip’ est encore 
plus simple, puisqu'elle peut se faire 
dans la foulée. Il suffit de frapper 
CTRL N pour obtenir le ‘‘n’”’ minuscule 
inversé. 


Je n’ai donc pas trouvé de combinai- 
son simple pour produire entre guille- 
mets un caractère shifté inversé. Mais 
vous, qui êtes intelligents, vous avez 
peut-être la solution. Ou d’autres astu- 
ces. Pensez à nous les communiquer. 


Caractères de contrôle 


Sur CBM 4000 GE/8000 


CHRS(14) RVS N 
CHRS(142) SHIFT RVS N 


CHRS(16) RVS P 
CHR$(150) SHIFT RVS V 
CHRS() RVS I 
CHR$(137) SHIFT RVS 1 
CHRS(?) RVS G 
CHRS(135) SHIFT RVS G 


Sur Vic 20 et C.64 


CHRS(14) 
CHRS(142) SHIFT 


CHR$(17) 
CHRS(18) 
CHRS$(19) 
CHRS$(20) 
CHRS(29) 


CHRS(S) 

CHRS(28) 
CHRS(30) 
CHRS(31) 


CTRL N 
RVSN 


CTRL Q 
CTRL R 
CTRLS 
CTRL T 
CTRL-+ 


CTRL E 
CTRL £ 
CTRL T 
CTRL = 


Blanc 
Rouge 
Vert 
Bleu 


Mode texte 
Mode graphique 


Efface la ligne après le curseur 
Efface la ligne avant le curseur 
Pose un taquet de tabulation 
Envoie au prochain tab 
Sonnerie simple 

Sonnerie double 


Mode texte 

Mode graphique 
Curseur bas 

Inversion vidéo 
Home 
Delete 
Curseur droit 


LIST - PAGE 29 


PROGRAMME POUR PB-700 : 


© LES MARCHANDS 
DE SABLE 


L ne faut pas toujours beaucoup d’octets pour Se 
4 : ées, il faudra tout d ê fai 
concevoir un jeu amusant, Le programme fées, fau jou de méme fe 
Basic présenté ici en est une preuve. Dirigées pes et des fleurs sur l'écran. 


depuis le clavier du PB-700, des guépes survolent … ar? secondes Elles ÿ parvien. 


dormir les secondes. Elles y parvien- 


un champ de fleurs. Leur tâche consiste à répandre ‘"°nten lançantun petit jet de poudre, 


commandé depuis le clavier. En tou- 


le sommeil, à la manière ne chant la fleur, ce jet l’endort définitive- 
. os TE ment. Une simple pression sur une tou- 
des marchands on é che — autre que BREAK, CAPS, 


A ; f 5 j STOP ou SHIFT — suffit pour lâcher 

A0 NN N LT de la poudre. Mais un nouveau jet ne 
peut avoir lieu que si la poudre du pré- 
cédent a touché le sol. 


Dès qu’une fleur est touchée, la guêpe 
a rempli sa mission et le score s’affiche. 
Si elle rase le champ de fleurs, elle repart 
pour une nouvelle mission après avoir 
touché le sol. L’exercice est alors plus 
périlleux que le précédent, jusqu’à ce 
que disparition s’ensuive. 

La guêpe qui disparaît à droite de 
l'écran reviendra à gauche au tour sui- 
vant. Et, sous l’effet du sable, de nou- 
velles fleurs plongeront dans un lourd 
sommeil. 


de sable, 


André R BER 
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Marchands de sable 
Programme pour PB-700 
Auteur André Reeb-Gruber 
Copyright LIST et l’auteur 


5 CLERR :CLS :n=8 


STEP 6:Y=INTCRNDXM)X2+2 


NEXT J:NEXT J:H=1:1=1 

28 I=I+6:IF 12151 THEN I=7:H=H+2 
25 IF H>28 THEN M=M+1:GOTO 10 

30 DRAWCI-2,H-13-CI-2,H)I-CI+2,H) 
35 IF POINT(I+4,H)=1 THEN 80 

40 IF C<@Q THEN 65 

45 IF INKEY$O"" THEN D=5 

58 GOTO 55+D 


C=1:N=H:UzI 


CU+2, NJ :DRAWCCU-2,N+1)-CU+2,N+1) :BEEP 
29 IF N=28 THEN C=0:0=G:BEEP 1 
275 GOTO 55 


EEP L'PRINT "PERDU:score ->";S 


85 FOR I=1 TO SOB:NEXT 1! 
30 IF INKEY$="" THEN 90 ELSE 5 


Le programme ligne par ligne 


Ligne 5 : initialisation des mémoires, de l’écran et du niveau de difficulté. 


de l'écran, elle réapparaîtra au tour suivant avec une altitude plus faible. 


unité et l’on repart pour endormir de nouvelles fleurs. 
Ligne 30 : tracé de la guêpe. 
Ligne 35 : si la guêpe touche une fleur, envoi en ligne 80, c’est perdu. 


a pas de jet de sable en cours ; si C est à 1, le sable est en train de tomber. 


mande de tir du jet n’est pas activée ; si D vaut 5, la commande est activée. 
Ligne 50 : branchement à une adresse dépendant de la valeur de D. 
Ligne 55 : effacement de la guêpe et retour à la ligne 20. 


permettent de repérer le déplacement du jet de sable. 


fleur en émettant un « bip ». 


mis à zéro ; un nouveau « bip » retentit. 
Lignes 80 : temporisation, signal sonore, affichage du résultat. 
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I 


18 DRAW(G,313-(159,31):FOR I= 17 TO 13? 


15 FOR J=0 TO 4:DRANWCI+J,31)-CI+J, 31-Y): 


DRAWCCI-2,H-13-CI1-2,H)-C1+2,H):GOTO 2 


65 S=S+1:N=N+2:DRAWCU, N+2) :DRANC(U-2,N)- 


89 FOR 2=1 TO IBG:NEXT 2:BEEP 1:BEEP 1:B 


Lignes 10 et 15 : tracé du sol et des fleurs, initialisation des coordonnées de la guêpe. 
Ligne 20 : calcul des nouvelles coordonnées de la guêpe ; si elle est arrivée à la limite 


Ligne 25 : si la guêpe a fini de raser le sol, le niveau de difficulté augmente d’une 


Ligne 40 : test sur le jet de sable, grâce à un drapeau (C) : si C est à zéro, il n’y 


Ligne 45 : test de la commande de tir grâce au drapeau D : si D vaut zéro, la com- 


Ligne 60 : mise à 1 du drapeau C, initialisation des coordonnées de la guêpe qui 
Ligne 65 : incrémentation du score : tracé du sable qui endort éventuellement une 


Ligne 70 : si le sable a complètement endormi une fleur, les drapeaux C et D sont 


n Liste des Variables 
apeau de i 
de are « Verrouillage » du jet 
Täpeau de 
ce Commande du lancer 
hauteur de L ê 
a guêpe 
Compteur de bo 
15) et posi “ 
&uêpe 
COmPteur de bou 
c cle 
ie de difficulté 
ufeur du ; 
a jet de Sable 
Position horizont 
hauteur de la fi et 
Compteur de 
temporisation 


K (lignes 10 
tion horizontale de a 


boucle pour la 


-dEz. PAS 
MONVIEUX! 


Sufer-lisTos! 
JE NS 
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PRÈS avoir fait apparaître de petits 
monstres à l‘écran (LIST 5) et les 
” avoir animés (LIST 6), voyons ce 


mois-ci comment les dessiner sur imprimante et 
les sauvegarder sur disquette ou sur cassette. 


Le programme d’écran graphique 
pour Oric-l et Atmos et ses 
extensions-gestion et animation des des- 
sins (1) -étaient écrits de façon struc- 
turée. Il est donc facile d’y ajouter des 
fonctions supplémentaires, comme l’im- 
pression, le chargement ou la sauve- 
garde sur disquette ou sur cassette de 
nos dessins. Pour greffer une nouvelle 
fonction sur le programme, nous 
devrons, outre la fonction elle-même, 
introduire sa reconnaissance en début de 
commande, et son mnémonique dans le 
bandeau de saisie en fin de commande. 
Pour l'impression, par exemple, cela 
nous donne : 
92 1F CIMPR THEN GOSUB 2500 
291 CIMPR = (A = 9 AND NOT 
SEUL) 
2840 PRINT ‘‘...Ani Lis ICS” ; 
2500 PRINT ‘‘Impression.… 
(::-} 
2595 RETURN 
Nos idées directrices seront : 
e créer un petit système d’exploitation 
des dessins entre la mémoire et la dis- 
quette de l’Oric, en particulier pour 
mélanger les dessins ; 
e n’imprimer que le dessin, et non pas 
l’écran en entier : il faut tenir compte 
de la lenteur de l’impression en Basic. 


Quelques points particuliers méritent 
explication. Ainsi, on peut se demander 


(1) Voir LIST n°% S et 6. 
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comment utiliser la touche FUNCT du 
clavier de l’ Atmos pour reconnaître, par 
exemple, une de nos fonctions supplé- 
mentaires. Il faut savoir qu’il s’agit 
d’une touche de fonction, comme Shift 
et Contrôle, c’est-à-dire que l’appui sur 
cette touche modifie temporairement 
l’octet 521 de la mémoire mais ne pro- 
duit aucun caractère. Cet octet doit 
donc être lu en même temps qu’un 
caractère. Il vaut 165 ou 56 selon qu’il 
y a ou non appui sur FUNCT. D’où 
GET AS$ : TOUCHE = PEEK (521) ; 
attention, il faut écrire ‘‘T-zéro- 
UCHE’” pour éviter le mot réservé 
“TO”: 


‘Une impression 


ligne à ligne 


La séquence Ctrl-I permet l’impres- 
sion d’un dessin sur une imprimante Sei- 
kosha GP80 ou GP100. On envoie des 
colonnes de 6 points de large pour 
imprimer des lignes de 6 (ou 7) points 
de haut. Le mode graphique commence 
toujours avec le code 8 ; l'impression de 
chaque ligne est commandée par le code 
13. Chaque caractère occupe 7 points 
graphiques sur l'imprimante contre 
6 seulement sur l’écran. La solution 
consiste ici à donner la valeur du point 
6 au point 7, le point 8, quant à lui, res- 


 ORIC-1 ET ATMOS 


tant toujours à 1. Les codes de ces trois 
derniers points sont respectivement 32, 
64 et 128. 


L’octet 598 (voir ligne 2510) indique 
le nombre de colonnes de l’imprimante 
que l’on fait coïncider avec le nombre 
de lignes graphiques de l’écran : 200 
donc. Pour l’Oric-1, il faudra mettre 
255 dans l’octet 49. Dans tous les cas, 
il ne sera imprimé que le dessin sans 
cadre, et non pas les 48000 points de 
l’écran. 

Avec Funct-C et Funct-S, nous abor- 
dons maintenant le chargement et la 
sauvegarde sur disquette. La gestion des 
dessins en mémoire centrale demande 
un adressage variable pour le charge- 
ment depuis le lecteur de disque. Les 
dessins chargés peuvent être ajoutés à 
l’ensemble de ceux qui sont déjà pré- 
sents dans la mémoire, et donc mélan- 
gés dans une animation. On ne gardera 
dans un même fichier que ceux qui 
demandent à être animés ensemble. Cela 
explique la ligne : 

63998 ! LOAD FIC$, A#+ + + +: 
RETURN 


De la même façon, il ne faut sauve- 
garder que la partie occupée par les des- 
sins, d’où : 

63999 ISAVE FICS, A#5001, 
E#+ + ++ : RETURN 


Dans ces deux dernières lignes, les 
signes ‘‘+”’ qui correspondent à 
l’adresse de chargement seront automa- 
tiquement remplacés par l’adresse 
exacte des dessins. Le principe retenu ici 
consiste à placer les ordres à modifier 
(LOAD et SAVE) très près des limites 
du programme, limites que l’on connaît 
grâce aux pointeurs 154 (début) et 156 
(fin du programme Basic). Comme on 
le voit, nous avons choisi la fin, le 
numéro de ligne le plus élevé en Basic 
de l’Oric étant 63999. On compte donc 
les octets en commençant par la fin : 
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+? 


1 REM = 
S GOSUB 100 ’repete les commandes 


10 REPEAT :GOSUB 20 :UNTIL NOT COMMAN 
15 GOSUB 2900 ‘fin =====7== 
20 GOSUB 200 ‘commande 


92 1F CIMPR THEN GOSUB 2500 
94 IF FCARG THEN GOSUB 2600 
96 IF FSAUV THEN GOSUB 2700 
99 GOSUB 2800 :RETURN :REM ===== 


100 REM initialisations 


155 PRINT'"'ICS:ctri-Impres funct-Char 
funct-Sauv"; 


200 REM debut une commande 


288 :SEUL={TOUCHE=56) 

289 MOUV=(MOUV AND SEUL) :CERC=(A$="C 
“ AND SEUL) :SUPP=(A$="S" AND SEUL) 
291 CIMPR=(A=9 AND NOT SEUL) 

292 :FUNCT=(TOUCHE=1 65) 

293 FCARG=(A#$="C*" AND FUNCT ) 

294 FSAUV=(AS=*S" AND FUNCT) 


2560 PRINT'"Impression de la forme"; 
2505 E=0 :G6OSUB CADR 

2510 POKE 598,200 

2515 LPRINT CHR$(8) 

2520 PNT=40960+Y0*x40+INTIX9/6) 

2525 LARG=INT{X9/6)-INTEX0/6)+#1 

2530 FOR COL=PNT TO PNT-LARG STEP -1 
2535 FOR LIG=COL TO COL+LY*40 STEP 40 
-2540 CODE=PEEK(LIG) 

2545 IF CODE=)128 THEN CODE=CODE-128 
2550 IF CODE=>64 THEN CODE=CODE-64 
2555 IF CODE=}32 THEN CODE={(CODE+192) 
ELSE CODE=(CODE+128) 

2560 LPRINT CHR$(CODE) ; 

2565 IF KEY$=CHR$#(27) THEN 2585 

2570 NEXT LIG 

2575 LPRINT CHR$#(13) 

2580 NEXT COL 

2585 POKE 49,40 

2590 E=1 :GOSUB CADR 

2595 RETURN :REM ----- 
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TU VEUX ME FAIRE 


RENTRER LÀ -DEDANS ? 


INPUT “Charge les formes ";F1C$ 
IF FIC#$="" THEN RETURN 


FICSSRIGHTSS"  "4FIC$+".DES",7) 
DES$="z" :GOSUB 3230 :REM limite 
POKE 277,1 

:GO0SUB 63000 ‘modif load 

POKE 1277,0 


IF PEEK(1279)=1 THEN PRINT'"incon 
Nu"; :PING:IGET A$ 
269S RETURN :REM ----- 


2700 INPUT "Sauve les formes ";F1C$ 
2710 JF FIC#="* THEN RETURN 

2720 FICS=RIGHT$(" "+FIC$+".DES",7) 
2730 DES#="2" :GOSUB 3230 :REM limite 
2760 POKE 1277,1 

2770 :GOSUB 43100 ‘modif save 

2780 POKE 1277,0 

2790 IF PEEK{1279)3=9 THEN PRINT'exist 
e deja"; :PING:GET A$ 

2795 RETURN :REM ----- 


2800 REM fin une commande 


2840 PRINT"'Txt ‘EPYCo For Gar Pla Sup 
Ani Lis 1C5"; 
2870 GET À$ :TOUCHE=PEEK(S21) 


63000 REM load: adresse debut 

63010 A=DEEK{156)-42 

63020 FOR 1=2 TO 5 :2=ASC{(MID#(HEX# (A 
DRS),1,13) :POKE A+1,2Z :NEXT 

63030 :GOTO 63998 ‘Ioad 


63100 REM save: adresse fin 

63110 A=DEEK*156)-11 

63120 FOR 1=2 TO 5 :2=4SC(MID#/HEX$ (A 
DRS+2),1,1)) :POKE A+1,2 :NEX 

63130 :GOTO 63999 ‘save 


63998 ILOAD FIC$ ,4 # t+++:RETURN 
63999 'SAVE FICS$,A# 5001 ,E#++++:RITURN 


A = DEEK (156) — 11 et A = DEEK 
(156) — 42 ; puis l’on fait poker par le 
programme les 4 caractères de l’adresse 
(en hexadécimal) à l'endroit voulu, 
autrement dit à la place des 
SH + + +77. 

Normalement, il vaut mieux s’inter- 
dire de telles acrobaties en programma- 
tion, car il est difficile de contrôler le 
processus ou même de modifier le pro- 
gramme par la suite. Ici, nous n’avions 
pas le choix. 


Disquette 
‘Ou Cassette ? 


Le système d’exploitation des disquet- 
tes utilise loctet 1277 pour autoriser 
(valeur 1) ou non (valeur 0) la détection 
d’erreur sans arrêt du programme, et il 
place le numéro de l’erreur dans l’octet 
1279. On peut ainsi gérer soi-même les 
erreurs : fichier inconnu ou déjà exis- 
tant (lignes 2690 et 2790). 


En l’absence de lecteur de disquette, 
on stockera les dessins sur une cassette. 
Les modifications à apporter au pro- 
gramme sont mineures. Sur Atmos, on 
ne peut changer l’adresse de chargement 
puisque l’ordre CLOAD n’admet pas 
d’adresse, on écrira donc : 

Ce) 

2660 PRINT ‘‘Cassette prete O’’ 
H$;:GET O$:PRINT Of$;: IF O$ 
< > ‘O”THEN RETURN 

2670 CLOAD FIC$ 

2695 RETURN : REM---- 

et il sera malheureusement impossible 

de mélanger deux ensembles de dessins. 


Pour utiliser l’ordre CSAVE, on 
écrira : 
2760 PRINT ‘‘Cassette prete O’’ H$;: 

GET O$: PRINT Of$;: IF 
O$ < > ‘‘O’”’ THEN RETURN 
2770 : GOSUB 63100 ’modif save 
2795 RETURN :REM----- 
63100 REM save: adresse fin 
63110 A =DEEK(156)- 11 
63120 FOR 1 =2 TO 5 :Z = ASC(MIDS 
(HEXS(ADRS),1,1)) :POKE 
A+I,2 :NEXT 
63999CSAVE FIC$,A#5001, E# 
+ + + +:RETURN 


Sur l’Oric-I, on peut faire comme sur 
PAtmos, mais le programme est inter- 
rompu après chaque chargement. On 
doit rectifier le pointeur 156, qui est 
altéré par l’exécution du CLOAD, en y 
plaçant la valeur du pointeur 158 : 
DOKE 156, DEEK (158) puis RUN, et 
le fichier est chargé. 


Max:HA 
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OUSSÉS par une saine 


os 


nous avons cherché à connaïtr 


A la décharge de notre valeureux 
cobaye, il faut dire que nous avons 
utilisé ses structures de boucle là où elles 
n’ont pas lieu d’être employées, c’est- 
à-dire là où elles sont les plus ineffica- 


ee 
— a. 


T'AS W LES 
BOUCLES DU 
COMMODORE 9 


RESTRUCTURATION 
DANS L'AIR ! 


ces, donc les plus lentes. Le centre de 
nos recherches fut un simple pro- 
gramme de comptage, c’est dire si nous 


avons fait preuve d’originalité ! 
£ 


Les boucles 


du Basic 3,5 


Le Basic 3.5 équipe les nouveaux 
Commodore 16 et +4. C’est un Basic 
complet qui est au Basic 2.0 des Vic et 
Commodore ce qu’est la Sixtine au 
regard de l’église du village. Il offre en 
particulier des structures de boucles qui 
éviteront aux programmeurs du diman- 
che de se perdre dans des GOTOs à 
rallonges. 


DO...LOOP est le maître-mot des 
structures. Il peut s’agrémenter, selon 
les besoins, de UNTIL ou de WHILE ; 
tandis que le bon vieux FOR...NEXT 
reste vaillant au poste. Pour les ama- 
teurs de sorties de boucles en catastro- 
phe, EXIT apporte un secours bienveil- 
lant et salutaire. 


Nous disions donc qu’un programme 
de compteur avait servi de base à toute 
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cette affaire. Par simple mauvais esprit, 
nous avons chronométré le désastre que 
constitue l’utilisation d’une structure 
« manuelle ». Résultat, 101.26 secondes 
pour ce programme : 

10 I=1+1 

20 IF I < 10000 GOTO 10 


Pas brillant donc (1). Mais rappelons 
que ce type de compteur devait être uti- 
lisé à chaque fois qu’une boucle 
FOR...NEXT pouvait être interrompue 
par un GOTO branchant à l’extérieur.… 


Dans la foulée, nous obtenions 18.8 


(1) A titre de comparaison, le même programme 
s'exécute en 103 secondes sur C.64 et 33 secon- 
des sur Amstrad. 


secondes pour le programme suivant, 
qui utilise la structure la plus adéquate 
en un tel cas : 

10 FOR I=1 TO 10000 

20 NEXT I 

Durée même réductible selon les varian- 
tes du programme : NEXT I, ou 
NEXT. 


Une fois connus ces deux extrêmes, 
il était facile de voir ce qu’allaient don- 
ner, par comparaison, les diverses ver- 
sions de la chose. 
10 DO 
20 1=-1+1 
30 LOOP WHILE I < 10000 
exige 96.6 secondes. C’est long. 


10 DO WHILE I < 10000 
20 I=1+1 
30 LOOP 
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LA 


prend 96.42 secondes. Ce n’est guère 

mieux. 

10 DO 

20 1-1+1 

30 LOOP UNTIL I = 10000 

demande 95.26 secondes. Hum ! 

10 DO UNTIL: I1= 10000 

20 I=1+1 

30 LOOP 

consomme 94.9 secondes. Aïe ! 

10 DO UNTIL I > 9999 

20 I=1+1 

30 LOOP 

est le meilleur, avec 91.67 secondes. 
Bref, aucune de ces boucles ne vient 

à bout de ses 10000 itérations en un 


E Sharp PC:1500 est un 
ordinateur réellement 


portatif puisqu'il tient 
aisément dans la poche 


d'un manteau. La tentation 
est grande de l'employer 
comme agenda électronique, 
calendrier et (pourquoi pas ?) 


réveille-matin, 


Certaines applications nécessitent 

une connaissance correcte des 
nombreux problèmes liés à la gestion du 
temps et donc à l’utilisation de la fonc- 
tion spécialisée TIME. Son étude très 
minutieuse — allant au-delà des modes- 
tes déclarations du manuel — permet 
une utilisation optimale de sa puissance. 
La mémoire vive du PC-1500 est de 
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OR EN 


temps comparable à celui d’un 
FOR....NEXT. Heureusement, toutes 
s’exécutent en moins de temps qu’une 
boucle manuelle, mais il s’en faut de 
peu. 


Dans un premier temps, nous pou- 
vons penser que cette relative lenteur 
provient du Basic 3.5 lui-même, qui 
peut-être n’est pas optimisé à ce niveau. 
Dans un second temps, il est possible de 
considérer que le 7501 (nouvel avatar du 
6502, et cerveau du C.16) n’est pas tout 
à fait à la hauteur de la tâche qui lui est 
demandée. Pensez, un cœur qui ne bat 
qu’à 1 MHz environ ! 


Mais, dans un troisième temps, il est 
sage de faire avec ce qu’on a. Le Basic 


type CMOS. Entre autres cela implique 
que des informations particulières y sont 
conservées — voire mises à jour — 
même lorsque la machine est 
« éteinte ». Ceci permet au quartz de 
l’ordinateur d’entretenir en perma- 
nence une horloge dite temps réel. En 
fait, c’est plus un horodateur car 
l’heure et la date du jour y sont gérées. 


3.5 reste un très bon Basic et le plaisir 
d’écrire de façon structurée n’a pas de 
prix. 

Notons donc que l’usage du UNTIL 
est légèrement plus rapide que le 
WHILE. Observons que DO UNTIL est 
meilleur que LOOP UNTIL, ce qui est 
vrai également du WHILE. Et enfin, 
tirons parti du fait que les inégalités sont 
traitées plus vite que les égalités, comme 
l’indiquent les deux derniers tests. 

Qui nous donnera une idée des temps 


d’exécution de ces mêmes structures sur 
une autre machine qui en dispose ? 


Grâce au langage Basic, on accède à 
ce dateur-horloge par la fonction TIME 
dédiée à la gestion du temps. On l’ini- 
tialise en y introduisant les informations 
suivantes : le mois (MM), le jour (JJ), 
l'heure (HH), les minutes (mm) et les 
secondes (ss). Une telle mise à l’heure 
s'effectue simplement sous la forme 
d’un nombre décimal comme on affecte 
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LA FONCTION TIME DU. 


une valeur à n’importe quelle variable : 
TIME = MMJJHH.mmss 


Ainsi définie, la variable spéciale 
TIME est constamment entretenue par 
l’ordinateur. On en consulte le contenu 
le plus naturellement possible par : 


PRINT TIME ou encore A =TIME : 
PRINT A 


La documentation de l’ordinateur est 
bien obscure quant au comportement 
détaillé de cette gestion du temps. Une 
erreur de type 23 signale un réglage 


Carte de la variable TIME 


mois de 1 à 12. Si le mois O est admis, une valeur supérieure 
à 12 provoque une erreur. 


Chiffres 1 et 2 


Chiffres 3 et 4 quantième du jour de 1 à 31. Au-delà de 31 et jusqu’à 99 (ainsi 
que pour 0) aucune erreur n’est détectée. On s’aperçoit que le 


PC-1500 connaît le nombre de jours de chaque mois. 


Chiffres 5 et 6 heure de 0 à 23. Toute valeur supérieure à 23 est forcée à O sans 


message d’erreur. Dès minuit, le jour et, éventuellement, le mois 
sont incrémentés (+1). 

minutes de O à 59. Les valeurs de 60 à 89 sont traduites en 0 

à 9, tandis que pour 90 à 99 le premier chiffre est 1 et le second 
reste inchangé. 


Chiffres 7 et 8 


Chiffres 9 et 10 secondes de 0 à 59. Toute valeur à partir de 60 incrémente le 


compteur des minutes. 


Horodateur 
Programme pour PC- 
Auteur Yul Pham Duy 

Copyright LIST et l’auteu 


12:A$="84":R=D:KS 
="F:C$="080009" 
:WAIT @ 

28: “HORDAT"DATA 
RIGHTS €CC$+ 
STRS$S INT TIME 
s 6)+MID$ CSTR$ 
CTIME —INT 
TIME D+C$, 3, 4) 

39; DATA MID$ CTé, 
3, 22+*/"+LEFTS 
CT$, 22+"/"+8$ 

48: DATA MID$ CT$, 
53 2)+"H+MIDS 
CT$, 2,234 + 
RIGHTS C(T$, 2) 

58: RESTORE “HORDA 
T':READ T$, D$, 
H$:PRINT D$;" 

"5 H$ 

69:1F R$=RIGHTS ( 
T$;, 6GDLET R=1 

70:BEEP R, 209, 255 


:K$=INKEYS 
89:1F K$="R"'AND R 
ZBINPUT "HEURE üper du ref sans 
D/ALARME: “35R : ie avec READ Procédure 
$ | Oir l'ouvrage B 2 . d 
9B:IF K$CO"'LET R sur BC-1500, je tÈme € langage 
zp:K$="" PSI 1984. -Christophe 


198: GOTO 58 
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incorrect de TIME mais cela peut être 


le résultat de causes très différentes ! 
Par ailleurs, lorsqu’on souhaite traiter 
la valeur fournie par TIME pour en 
extraire, par exemple, une date, il est 
commode de procéder à partir d’une 
chaîne de caractères. Or TIME ne four- 
nit pas un nombre d’un format régu- 
lier : les zéros non significatifs sont 
ignorés à gauche comme à droite. Par 
exemple, un mois de mars, au 23° jour, 
à 15h34 mn et 205 retournerait : 
32315,342. 


_Un algorithme 


simple 


C’est ainsi que, connaissant un peu 
mieux la variable TIME, nous allons 
écrire une fonction produisant, à partir 
de sa valeur, une chaîne de caractères 
en contenant toujours dix : 

— il y a, au plus, six chiffres avant le 
point décimal, 

— il en reste, au plus, quatre à gauche 
du même point décimal. 


L’algorithme qui se dégage est très 
simple. Il faut séparer la partie entière 
du nombre (MMJJHH) avec STRS INT 
TIME car les parenthèses sont super- 
flues. A l'inverse, la partie décimale 
(mmss) sera obtenue par STR$ (TIME- 
INT TIME). 


Puis, on ajoutera à gauche du pre- 
mier résultat, ainsi qu’à droite du 
second, le nombre de caractères « 0 » 
nécessaire pour les compléter respecti- 
vement à six et à quatre chiffres. Ainsi, 
en employant une chaîne intermédiaire 
de cinq chiffres « 00000 » (ce qui garan- 
tit le complément dans tous les cas), on 
écrira C$ + STR$ INT TIME pour la 
partie entière, et STRS$S (TIME - INT 
TIME) + C$ pour la partie décimale. 


Enfin, dernier stade des manipula- 
tions, il faut tronquer ces chaînes de 
caractères, maintenant trop longues, ce 
qui donne : 

RIGHTS$(CS + STRS INT TIME ,6) + 
MIDS$( STR$ (TIME -INT TIME) + 
CS,3,4) 
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L va bientôt falloir 


plusieurs mains pour 


compter les ordinateurs 
français sur ses doigts. 
L'EXL 100, un des 
derniers venus, apporte 
une bonne dose de 
nouveauté. Et son Basic, 
s’il n’est pas très 
standard, n’en présente 
pas moins des 
caractéristiques 


intéressantes et originales. 


La conception de l’'EXL 100, par 

la CGCT (Compagnie Générale de 
Constructions Téléphoniques), a été 
pensée avec un grand sens pratique : le 
nombre de fils est réduit au minimum. 
Il en subsiste précisément trois, celui de 
lalimentation (incluse dans le boîtier), 
le cordon Péritel et le raccordement au 
lecteur de cassettes (sans télécommande, 
malheureusement). 


. La conversation entre le clavier ou les 
poignées de jeu et l’unité centrale (bloc 
indépendant) se fait par clins d’œil invi- 
sibles. Entendez : le dialogue est assuré 
par liaisons infrarouges. Il n’est donc 
plus nécessaire de rester attaché à l’or- 
dinateur, on peut travailler — ou jouer 
— confortablement installé sur un 
canapé. 


Pour les jeux, des cartouches enficha- 
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LIST A TESTÉ 


E BASIC 


bles sont disponibles. Certaines utilisent 
très judicieusement le synthétiseur 
sonore inclus dans l’unité centrale. 


Le Basic se présente, lui aussi, sous 
la forme d’une cartouche de mémoire 
morte. L'absence de langage résident 
garantit la souplesse de l’interpréteur. 
Et on peut espérer que d’autres langa- 
ges se présenteront sous cette forme, ou 
même que l’actuelle version du Basic 
sera corrigée pour combler certaines 
lacunes. 


"EAL 100 


le clavier prend es 


x 


Dès l’ouverture de la notice, les ori- 
gines du Basic se révèlent connues : une 
profusion de CALL nous rappelle le 
langage d’un certain CC-40 de Texas 
Instruments. Il s’agissait d’un ordina- 
teur de ‘‘cartable””, disparu peu après 
sa naissance (vers juin 1983), et qui avait 
pourtant l’aspect sérieux. 


La version de P'EXL 100 laisse un peu 
à désirer dans les domaines graphique 
et sonore. Maïs, pour le reste, c’est du 
grand art : des instructions riches et 
puissantes et une force de calcul que 
n’ont pas toujours les « gros ». 


Tout commence très fort avec les cal- 
culs directs au clavier. Pas besoin de 
habituel PRINT ou d’un point d’inter- 
rogation pour afficher les résultats 
d’une quelconque opération. On les 
écrit directement, comme sur une cal- 
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culatrice ou un ordinateur de poche. La 
touche SHIFT opère en bascule et un 
indicateur apparaît en haut de l’écran, 
sur une ligne d’état. L’appel de con- 
trôle, de fonction et de mode angulaire 
(RAD, DEG ou GRA) ont, eux aussi, 
leurs indicateurs (encore des airs d’or- 
dinateur de poche). La touche de fonc- 
tion sert à introduire rapidement les 
mots clés du Basic qui sont inscrits sur 
un cache-clavier. 


Les calculs se font sur 14 chiffres, 10 
seulement étant affichés. Pour vérifier 
ou établir de telles informations, j’uti- 
lise un truc : l’exécution d’un test d’éga- 
lité sur une division qui ne tombe pas 
juste. Sur l’'EXL 100, par exemple, j’ai 
frappé au clavier : 

PRINT 2/3=0.66666666666667 


L’instruction PRINT est facultative 
ici. Le résultat apparaît : — 1, soit vrai. 
Il indique que cette égalité, dont le 
deuxième terme est formé de 14 chiffres, 
est vérifiée alors qu’avec moins de chif- 
fres significatifs, elle ne l’était pas. Et 
pour connaître le nombre de décimales 
affichées, il suffit de taper PRINT 2/3. 
Ici, le résultat est 0.6666666667. Soit 10 
chiffres significatifs. C’est donc une 
bonne précision dans les calculs déci- 
maux. En notation scientifique, ça ne 
se passe pas mal non plus : les calculs 
couvrent la gamme de 1E-128 à 
9E +127. Beaucoup d’autres ordina- 
teurs sont encore limités à 1E99, quand 
ce n’est pas 1E38. 


Dans les programmes, les nombres 
sont destinés à être manipulés grâce à 
des variables. L’EXL 100 accorde une 
grande souplesse à leur nom de bap- 
tême. Chacun peut s’étendre jusqu’à 15 
caractères alphanumériques. On ne sera 
donc pas limité dans les identificateurs 
et les noms de variables pourront être 
vraiment parlants. Dans un même pro- 


DÉTREN nn 


CHIMVLUS 
| 
Si ) 
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= Fès 
ne pen 


gramme, le nombre d’identificateurs est 
limité à 95. 


Les variables alphanumériques attei- 
gnent leur trop-plein à 75 caractères. 
Pour en afficher davantage, il faut con- 
caténer en utilisant le signe ‘‘&’”, au lieu 
de l’habituel ‘‘;””. Mais on ne peut pas 
dépasser trois juxtapositions si les varia- 
bles sont remplies au maximum. 


Il n’y a pas que la concaténation qui 
se pratique de manière originale. Le 
« saucissonnage » des chaînes de carac- 
tères a lieu grâce à SEG$. Il remplace 
à lui seul les trois trancheurs classiques : 
LEFT$, MID$ et RIGHT$. Ce qui 
revient à dire qu’il agit exactement 
comme MID$, les deux autres n’ayant 
pas d’équivalent. 


On peut créer 


ses caractères 


Les chaînes de caractères sont aussi 
traitées par RPT$ pour la répétition et 
POS pour la recherche de « maillons » 
dans une chaîne. La conversion d’alpha- 
numérique en numérique est possible 
par VAL. Elle est complétée par 
NUMERIC qui vérifie la validité numé- 
rique d’une chaîne. 


Les caractères accentués de la langue 
française existent sur le clavier, mais ils 
ne sont pas reconnus par le Basic qui ne 
sait les utiliser qu’à partir de leur code 
(non standard) avec CHR$. Par ailleurs, 
CALL CHAR donne la liberté de créer 
des caractères quelconques par codage 
hexadécimal d’une matrice de 8 sur 10 
points. 


Avant de rentrer plus avant dans 
l’examen des instructions, il faut préci- 


J'é) 


SE 


sa 


ET QUAND 3€ FENSE QUE CE StSEnS 
PETIT TRUC EST PLUS 1NTELLIGENT ul 
QUE MONSIEUR! 1] 


pe AE Em 
> IOPR UIISPNTE 


us Dai 
qurs 


ser que les lignes d’un programme sont 


numérotées en-dessous de 32766 


(codage 15 bits), et qu’un espace est obli- 
gatoire après le numéro. C’est cet espace 
qui distingue le numéro de ligne d’un 
programme du premier terme d’une 
opération. 


Après chaque instruction, un autre 
espace est obligatoire, sauf en cas de 
parenthèse. Ce dernier point est plus 
gênant car la plupart des Basic s’en dis- 
pensent. Une ligne ne peut dépasser 80 
caractères. Mais il est vrai qu’avec des 
lignes plus longues, les programmes 
sont peu lisibles. 


Les fonctions mathématiques se mon- 
trent à la hauteur de la précision numé- 
rique. Un jeu complet de fonctions tri- 
gonométriques s’attaque aux angles, 
dans les trois modes disponibles (degrés, 
radians, grades). C’est plutôt rare. 


Les logarithmes népériens n’ont pas 
éclipsé les logarithmes décimaux, si sou- 
vent oubliés dans les Basic. Les subtili- 
tés du générateur de nombres aléatoires 
feront le délice des inventeurs de jeux : 
la fonction RND s’accompagne de 
RANDOMIZE qui initialise une 
séquence vraiment aléatoire et qui, si 
elle est suivie d’un paramètre de 1 à 
65535, déclenche la production de 
séquences reproductibles. Enfin, la 
fonction INTRND(n) délivre des nom- 
bres aléatoires entiers compris entre 1 
et n, évitant ainsi de passer par les for- 
mules d’arrangement à partir d’un nom- 
bre fractionnaire. 


Les instructions d’introduction de 
données à partir du clavier foisonnent. 
Par exemple, KEY$ et CALL KEY sur- 
veillent l’appui des touches. Avec la 
seconde, on remplit deux variables, 
l’une contenant le code ASCII de la tou- 
che enfoncée, l’autre l’indicateur d’état 
qui précise si la même 'touche a été 
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Liste des mots clés 
du Basic de l'EXL 100 


ABS 
ACCEPT 
ACS 
AND 
ASC 

ASN 
ATN 
ATTACH 


BREAK 


CALL 
CHAR* 
CHRS 
CLEAN UP* 
CLOSE 

CLS 
COLOR* 
CONTINUE 


GOSUB 
GOTO 
GRAD 


HRON* 
HROFF* 


IF... THEN...ELSE 
IMAGE 

INPUT 

INT 

INTRND 


KEY1* 
KEY2* 
KEYS 
LEN 
LET 
LINE* 
LINPUT 
LIST 

LN 
LOAD 
LOCATE 


* Ces mots doivent être précédés 
par CALL (par exemple : CALL 
CHAR, CALL POKE,...) 


FOR...STEP...NEXT 


actionnée plusieurs fois. L’instruction 
ACCEPT se comporte comme un 
INPUT intelligent. Elle est suivie de pré- 
cisions de contrainte : BEEP (un signal 
sonore d’attente), VALIDATE (une res- 
triction du type de caractères accepta- 
bles — alphabétiques, majuscules, 
numériques, alphanumériques, etc.) ou 
NULL (définissant la valeur introduite 
si seul un retour chariot est enfoncé). 

Le PRINT est bien loti, lui aussi. Il 


gère les formats de sortie avec USING, 
complété par IMAGE qui prédéfinit un 


Fiche technique de l'EXL 100 
Constructeur : Compagnie Générale de 
Constructions Téléphoniques 
Distributeur : Exelvision 
Prix public : 2 690 FF (comprend l'unité 
centrale, le clavier, la cartouche de Basic et 
les cordons) 


Processeur : TMS 7020 


Mémoire vive disponible : 32 Koctets 
Mémoire morte : 8 Koctets 


Langage : Basic (cartouche de mémoire 
morte de 32 Ko) 


Variables numériques : de 1E-128 à 
9E + 127 


Précision : calculs sur 14 chiffres, 10 chif- 
fres affichés 
Nombre de mots clés du Basic : 97 
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I 


LOG 


NEW 

NOT 
NUMBER 
NUMERIC 


ON BREAK 
ON ERROR 
ON...GOSUB 
ON...GOTO 
ON WARNING 


RANDOMIZE 
READ 
RELEASE 
REM 
RENUMBER 
RESTORE 
RETURN 
RND 

RPTS$ 

RUN 


SAVE 
SEG$ 
SGN 

SIN 
SPEECH* 
SQR 
STOP 
STRS 
SUB 
SUBEND 


PRINT USING 


RAD TAN 


UNBREAK 


VAL 
VERSION* 


XOR 


format sur une ligne de programme en 
y incluant éventuellement du texte. 
PAUSE suspend l'affichage pendant 
une durée déterminée en évitant le 
recours à des boucles de temporisation 
et LOCATE précise les coordonnées 
d’apparition à l’écran. 


Pas de mode 


.« {race » 


Dans le jeu d’instructions, on trouve 
aussi ELSE, complémentaire de 
IF... THEN, ON..GOTO et ON... 
GOSUB. Un original ON BREAK 
décide de la marche à suivre en cas d’in- 
terruption de l’exécution, et BREAK, 
seul, se comporte comme une instruc- 
tion à part entière en définissant des 
points d’arrêt que UNBREAK sup- 
prime. En l’absence de mode Trace, cela 
aide à la mise au point. On trouve 
encore un ON ERROR et même un ON 
WARNING pour traiter les erreurs 
moins graves. 


De nombreuses instructions sont 
gérées comme des procédures par le 
Basic et sont appelées par CALL. On y 
trouve la maigre panoplie servant à réa- 


liser des graphismes : PLOT qui opère 
point par point, ou LINE qui trace une 
ligne droite. Il n’est donc pas simple de 
dessiner de beaux ronds ou de remplir 
des figures. Et pas un seul petit lutin ne 
se promène à l’écran ! Le Basic de 
PEXL 100 n’a pas assez évolué dans ce 
domaine par rapport à celui du CC-40. 


Le domaine des sons est encore plus 
désertique : aucune possibilité de créa- 
tion musicale. L'exploitation du synthé- 
tiseur vocal incorporé s'apparente à un 
exploit. Le CALL SPEECH précède des 
files de caractères hexadécimaux dont le 
rôle n’est pas précisé par la notice. Il 
faut explorer à tâtons, après avoir cor- 
rigé l’erreur du seul exemple de pro- 
gramme livré par le manuel. 


D’autres CALL autorisent le discours 
en langage-machine (CALL PEEK, 
POKE, EXEC). Mutisme de la notice 
ici encore. Elle recommande simplement 
de se référer à un bon ouvrage sur la 
programmation du microprocesseur 
TMS 7020 et c’est plutôt difficile (voire 
impossible aujourd’hui) à trouver. 


Comme pour se faire pardonner ces 
sérieuses lacunes, CALL peut appeler 
des procédures définies par l’utilisateur. 
Celles-ci sont créées à la suite de SUB 
et terminées par SUBEND et 
SUBEXIT. Elles gèrent des variables 
locales indépendantes de celles exploi- 
tées par le programme principal, et 
acceptent le passage de paramètres. 


Cela donne accès à des possibilités 
qu’ignore habituellement le Basic, 
comme la récursivité. Et le program- 
meur pourra s’en servir pour réaliser des 
instructions qui manquent à l’« Exelba- 
sic », et se définir son propre langage, 
un peu comme avec Forth. Des acces- 
soires de l’'EXL 100 seront bien utiles 
dans ce domaine : les cartouches de 
mémoire vive auto-alimentées. Elles 
stockent des programmes en offrant une 
sauvegarde et une lecture quasi instan- 
tanées. Facile donc de se réserver une 
cartouche pour y inscrire des procédu- 
res complétant le Basic. Un langage à 
la carte, en quelque sorte. 


Le Basic de l’'EXL 100 présente donc 
les caractéristiques intéressantes qui 
étaient déjà disponibles sur le CC-40 et 
se mariaient parfaitement avec ce type 
d’ordinateur (une seule ligne d’affichage 
à cristaux liquides). Les ajouts propres 
à l’'EXL 100, en particulier le graphisme 
et les sons, s’avèrent décevants. Conso- 
lation et lueur d’espoir : le Basic est en 
cartouche et donc, facilement améliora- 
ble. Sa structure et le foisonnement de 
CALL s’y prêtent parfaitement. 
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Certains ordinateurs ont une ins- 
truction Basic « FLASH » pour 
créer un message clignotant. On 
retrouve également sur Minitel un code 
de ce genre. Le Basic du ZX n’est pas 
aussi luxueux, mais quelques lignes y 
pourvoient aisément. 
9000 REM CINEGRAMME ! 
9010 LET A$=‘* N IMPORTE 
QUOI ”’ 
9020 LET B$=‘* : 
9030 FOR 1=1 TO 10 
9040 PRINT AT 10, INT ((32-LEN 
A$)/2) ,AS 
9050 PRINT AT IO,INT ((32-LEN 
B$)/2);,B$ 
9060 NEXT I 
L’astuce (élémentaire) consiste ici à 
écrire simplement le message et une 
chaîne de blancs de même longueur à la 
même place, grâce à l'instruction 
PRINT AT. Ici, la ligne 9010 a été choi- 
sie arbitrairement pour l'affichage et 
l'expression INT ((32-LEN A$)/2) 
permet le centrage automatique du mes- 
sage quelle qu’en soit la longueur. 
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Un effet plus vibrant encore consiste 

à faire alterner un message en vidéo nor- 

male et ce même message en vidéo inver- 

sée. On le rencontre parfois dans certai- 

nes pubs télévisées. Le programme est 

simple : 

9000 REM CINEGRAMME 2 

9010 LET A$=‘ N IMPORTE 
QUOI ”’ 

9020 LET B$ =‘ N IMPORTE 
QUOI ”” (en vidéo inversée) 

9030 FOR I=1 TO 10 

9040 PRINT AT 10,INT ((32- LEN 
A$)/2);,A$ 

9050 PRINT AT 10, INT ((32-LEN 
B$)/2);B$ 

9060 NEXT I 

Suivant le vieux principe de la boule 

de neige (DUBO, DUBON, DUBON- 

NET, ça existe encore ?), on peut faci- 

lement faire apparaître un message let- 

tre par lettre, en triangle : 

9000 REM CINEGRAMME 3 

9010 LET A$=‘ N IMPORTE 
QUOI ”” 

9020 FOR I1=1 TO LEN A$ 


9030 PRINT AS(TO I) 
9040 NEXT I 


Et sens dessus 


dessous ? 


Si l’on préfère les carrés magiques, on 
peut meubler l’écran d’un beau pavé de 
titre, lisible dans tous les sens : 

9000 REM CINEGRAMME 4 

9010 LET A$=‘° N IMPORTE 
QUOI ”’ ; 

9020 LET L=LEN A$ 

9030 LET X=INT ((32-L)/2) 

9040 LET Y = INT ((22-L)/2) 

9050 PRINT AT Y,0 : 

9060 LET A$= A$ +‘ 7’+AS$ 

9070 FOR I=1 TO L+2 

9080 PRINT TAB X; AS( TOI+L-—1) 

9090 NEXT I 
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PRESENTE : 


A Z0QTROFE PECCEAM 


Ce n’est pas le célèbre et mystérieux 
SATOR 
AREPO 
TENET 
OPERA 
ROTAS(1) 
mais on fait ce qu’on peut ! 

On peut préférer ménager un habile 
suspense en faisant entrer les lettres une 
par une sur l’écran, en commençant par 
la droite : 

9000 REM CINEGRAMME 5 

9010 LET A$=‘ N IMPORTE 
QUOI ”’ : 

9020 FOR I1= LEN A$ TO 1 STEP - 1 

9030 FOR J=1 TO 31-LEN A$+1 

9040 IF AS(I) < > ‘‘ ”’ THEN PRINT 
AT 10,J-—1;‘’;AT 10,J ;AS(I) 

9050 NEXT J 

9060 NEXT I 


Vos convictions sont-elles d’une autre 
latéralité ? Entrons par la gauche : 
9000 REM CINEGRAMME 6 
9010 LET A$=‘N IMPORTE 

QUOI ”’ 
9020 FOR I=1 TO LEN A$ 
9030 FOR J=30 TO I STEP -1 
9040 IF A$ (1) <> ‘‘ ” THEN PRINT 
AT 10,J+1 ; ‘ ” ;AT 10,J;AS$(1) 
9050 NEXT J 
9060 NEXT I 


Mais, inspiré par la comète de Hal- 
ley, vous pouvez souhaiter laisser sur 
Yécran de fulgurantes (hum !) traînées. 
Facile : 

9000 REM CINEGRAMME 7 

9010 LET A$=‘N IMPORTE. 
QUO’ 

9020 LET A$=A$+ ‘‘ ” 


(1) Cette phrase latine au sens sibyllin peut se lire 
aussi bien de droite à gauche que de gauche à 
droite, de bas en haut ou de haut en bas. 
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OR 


9030 FOR I=1 TO LEN A$ 
9040 FOR J=30 TO I STEP -1 
9050 PRINT AT 10,J ; A$(1) 
9060 NEXT J 

9070 NEXT I 


Laissons tomber 


les lettres 


L’horizontalité vous lasse-t-elle ? 
Passons au vertical et regardons choir 
les lettres. 

9000 REM CINEGRAMME 8 

9010 LET A$=‘N IMPORTE 
QUO” 

9020 LET T=INT ((32-LEN AS) 
/2)—1 

9030 FOR I1=1 TO LEN A$ 

9040 FOR J=1 TO 10 

9050 IF AS(I)<> ‘‘ * THEN PRINT 
AT J-1,T+1; ‘“”; AT J, 
T+I;AS(I) 

9060 NEXT J 

9070 NEXT I 


Jusqu’ici, une fois les lettres mises en 
places, il ne se passe plus rien. Si l’on 
veut qu’il se passe toujours quelque 
chose sur son écran, pourquoi ne pas 
recourir au bon vieux chenillard des 
familles. 

9000 REM CINEGRAMME 9 

9010 LET A$=‘°N IMPORTE 
QUOPr”’ 

9020 LET A$=AS$+ ‘ xxx 7” 

9030 LET L=LEN A$ 

9040 LET A$= A$ + AS 

9050 FOR J=1 TO 10 

9060 FOR I=1 TO L 


9070 PRINT AT 10,(32-L)/2;AS$ (I 
TO I+L-—1) 

9080 NEXT I 

9090 NEXT J 


Avec ce dernier exemple, on s’aper- 
çoit que pour un PRINT AT, le ZX 81 
ne prend que la partie entière du nom- 
bre ; l'expression PRINT AT 10,INT 
(G2-—L)/2); A$ (TO I+L— 1), si elle 
est syntaxiquement plus précise, ralen- 
tit un brin le mouvement. À vous de 
choisir. 


Mais rien ne vous oblige à réserver 
aux pages de titre vos efforts d’anima- 
tion. Comme le ZX 81 s’arrête sur un 
message d’erreur dès que la mémoire 
d’écran est pleine, au lieu de procéder 
à un déroulement automatique, il est 
souvent utile d’avoir dans un petit coin 
un sous-programme de tourne-page qui 
demande d'appuyer sur NEWLINE (ou 
sur ENTER pour les pionniers : les pre- 
miers ZX distribués en France portaient 
en effet ENTER) avant d’effacer 
l’écran. Alors, adaptons le chenillard à 
l’envoi d’un message de ce genre en bas 
à droite de l’écran. 


100 GOSUB 9000 

120 PRINT ‘‘SUITE...”? 

130 STOP 

9000 REM CINEGRAMME 10 

9010 LET A$=‘FRAPPEZ 
NEWLINE” 

9020 LET A$=A$ + ‘° ##x 7? 

9030 LET L=LEN AS 

9040 LET A$= AS$+AS$ 

9050 FOR I1=1 TO L 

9060 PRINT AT 21,31 -L;AS$(I TO 
I+L-1 

9070 IF INKEYS$=CHRS 118 THEN 
GOTO 9100 

9080 NEXT I 

9090 GOTO 9050 

9100 CLS 

9110 RETURN 


Si l’on veut utiliser ce sous- 
programme pour un autre message, rien 
de plus simple : on précise avant de l’ap- 
peler LET A$ = ‘AUTRE MESSAGE”? 
et on l’appelle par un GOSUB 9020. 


Voilà. Le champ est vaste, et nul 
doute que vous aurez d’autres idées 
d’animation pour compléter votre 
bibliothèque de sous-programmes. Si, 
de surcroît, vous possédez un TOOL- 
KIT ou un utilitaire de ce genre permet- 
tant les APPEND, vous pourrez vous 
livrer aux joies de la programmation 
modulaire. 


Mais, au fait, vous, les as de la pro- 
grammation en langage-machine, vous 
ne pourriez pas offrir aux lecteurs de 
LIST un équivalent 6 combien plus 
rapide ? 


François J. BAYARD 
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LES COUPS D'OEIL DE LIST. 


EDI-LOGO 


POUR APPLE IL, IIc et Ile 


DI-LOGO est l'interpréteur Logo conçu au M.I.T. en 1981, et adapté en 
français par Édiciel (Matra et Hachette). Le principal public visé est 
l'enfant qui va s'initier à la programmation par le biais des graphiques et de 
la musique. Mais les possibilités d'extension du système (grâce à la 
programmation en Assembleur et à la création de ‘sprites’ pouvant 
remplacer la tortue) donnent à Édi-Logo un intérêt professionnel. 


Une fois l’ordinateur Apple 
amorcé avec la disquette Langage 
et après quelques dizaines de secondes 
d’attente, l’écran se couvre du texte pré- 
cisant l’origine du produit : 


XXX EDI-LOGO 


e la touche ‘esc’ efface le caractère situé 
à gauche du curseur ; 

< une fois l’insertion ou la suppression 
faite, il ne reste plus qu’à valider la ligne 
par Return. 


XXX 


UERSION MIT POUR APPLE II 64K 


EERET PAR _S. AIN P 


SOBALURARRO 


ET FANS sûÛS LA DIRECTION DE 


H. ABEL 
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0 MO 


Le caractère de sollicitation est le 
point d'interrogation préfixant le cur- 
seur clignotant. Sans attendre, tapons : 
BONOUR. Aïe, une erreur de frappe ! 
Comment corriger avant d'appuyer sur 
Return ? Essayons : 

e la touche flèche-à-gauche fait bien 
reculer le curseur ; 

e tout caractère tapé est inséré juste 
avant le curseur (les personnes ayant 
tapé des programmes en Basic ou en 
Apple Logo seront un peu gênées : les 
modalités de correction sont ici 
différentes) ; 
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C. BERDONNEAU 


La 


du 
logiciel 


Une pression sur Return donc, et l’af- 
fichage indique : BONJOUR. 


Les messages renvoyés par Edi-Logo 
sont clairs et nombreux (52) avec un 
tutoiement inattendu, ainsi ‘S'IL TE 
PLAIT, EFFACE QUELQUE 
CHOSE” (quand l’espace de travail est 
saturé), ou encore ‘‘TU ESSAIES DE 
DIVISER PAR ZERO’. 


Si l’on tape un message quelconque 
sous la sollicitation de ?, Edi-Logo 
répond que le premier mot du message 
n’a pas été défini. H a cherché une pro- 


. (esc, 


présentation 


cédure portant ce nom sans succès. La 
définition d’une procédure est intro- 
duite par POUR, ce dernier conduisant 
en mode éditeur-écran : | 

. une kyrielle de commandes d’édition 
sont disponibles pour modifier le texte 
affiché dans ce mode éditeur pleine page 
sve=s CTRL—-A,B,C;D, 
E,F,K,N,O,P) ; 

. un bandeau en dernière ligne précise 
les modalités de sortie de ce mode. 
POUR BONJOUR 

AFFICHE ‘BONJOUR 

FIN 

‘CTRL-C' 


La procédure BONJOUR est alors 
définie. L’écriture des commandes et 
des procédures est donc très simple. Un 
problème délicat se pose pourtant 
quand on veut taper les caractères cro- 
chet ouvrant et crochet fermant. Sur un 
clavier d'Apple II, le crochet ouvrant 
est obtenu par SHIFT N et le fermant 
par SHIFT M. Sur le clavier d’un Ile, 
ces caractères sont présents à condition 
que le commutateur de clavier soit en 
position QWERTY. Pour le Ilc, en 
AZERTY, le crochet. ouvrant a pour 
équivalent le degré ° et le crochet fer- 
mant l’alinéa $. Le degré est accessible 
directement en mode majuscule sur la 
ligne des chiffres, l’alinéa nécessite deux 
doigts, SHIFT-6. En Apple Ile, on peut 
aussi commuter en clavier QWERTY à 
condition de redessiner sur chaque tou- 
che le caractère correspondant. 
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EE 


p 


Il faut aussi en Ile et Ilc s’assurer que 
les lettres sont tapées en majuscules : 
l'affichage est trompeur puisqu’il trans- 
forme les lettres tapées en minuscules en 
majuscules ; l’interpréteur, lui, inter- 
cepte les minuscules et ne les comprend 
pas. 


Ces détails d’écriture étant connus, il 
n’y a plus qu’à se laisser entraîner dans 
le royaume des listes ou des mots. A 
propos, quelle est la taille de l’espace- 
mémoire disponible ? 

En Logo, l’atome d’information 
s’appelle un nœud, il contient généra- 
lement deux pointeurs et nécessite par 
conséquent quatre octets. 

AFFICHE .ESPACE 
2281 


Cette réponse donnant le nombre de 
nœuds libres a été obtenue juste après 
le démarrage : c’est donc la taille maxi- 
mum. Ce n’est pas le Pérou ! Ilest clair 
qu’Edi-Logo ne sait pas prendre en 
compte la mémoire auxiliaire de 64 Ko 
d’un Apple Ile ou Ic. Une bonne con- 
naissance du système Apple et de l’oc- 
cupation de l’Édi-Logo en mémoire 
devrait permettre aux spécialistes 
d'agrandir leur espace de travail. 
Comme base de recherche, nous savons 
que l’interpréteur Logo, implanté à par- 
tir de $4000, occupe 22944 octets. Nous 
savons aussi que l’espace des nœuds est 
situé entre $D000 et $FFF7 de la 
mémoire vive commutée (on retrouve à 
peu près 5 x 2280 octets ; à chaque 
nœud de 4 octets est attribué un autre 
octet pour le type de nœud). Mais arrê- 
tons là notre voyage à l’intérieur des 
mémoires pour passer plus de temps à 
l'extérieur, c’est-à-dire à la découverte 
des fichiers disponibles sur la disquette 
dont le titre est Utilitaires. 


Cette disquette esi recopiable 
puisqu'elle fonctionne sous le DOS 3.3. 
Il faut signaler qu’Edi-Logo dispose 
d’une procédure permettant d'utiliser la 
plupart des commandes du DOS. Elle 
s’appelle justement DOS. Par exemple 
?DOS CATALOG, D2$ permet d’af- 
ficher la liste des fichiers de la disquette 
présente dans le lecteur D2. 


En lisant le catalogue de la disquette 
Utilitaires, on se réjouit de pouvoir uti- 
liser des procédures prêtes à l’emploi et 
probablement spectaculaires. Le pre- 
mier fichier, Animal, contient toutes les 
procédures permettant à l’ordinateur de 
deviner le nom d’un animal grâce aux 
réponses oui/non que l'interlocuteur 
apporte à des questions qu’il a lui-même 
données d’avance. Les connaissances 
zoologiques de l’ordinateur s’accrois- 
sent au fur et à mesure de ses déficien- 
ces puisque, si l’utilisateur ne trouve pas 
le bon animal, il doit fournir une ques- 
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tion permettant de distinguer un animal 
déjà connu de celui nouvellement 
acquis. Cet ensemble de procédures, 
bien que déjà connu par ailleurs, cons- 
titue un très bon exemple de program- 
mation avancée en Logo, tout en étant 
un excellent jeu éducatif. 


En suivant le catalogue, on trouve les 
quatre fichiers Assembleur, Amodes, 
Opcodes, Adresses qui permettent 
d'écrire des sous-programmes en Assem- 
bleur (avec les facilités du mode édi- 
teur). Il s’agit, bien entendu, de pro- 
duire du langage-machine du 6502 à 
partir des noms symboliques des codes 
d'opérations, des modes d’adressage, 
d'étiquettes et d’adresses symboliques. 
Pour faciliter cette programmation (en 
Assembleur) d’extension du langage, les 
différents points d'ancrage dans l’inter- 
préteur, les adresses des variables ou des 
pointeurs sont disponibles sous forme 
de noms de variables Logo déjà enregis- 
crées dans le fichier Adresses. Une fois 
le sous-programme assemblé et implanté 
dans une zone adéquate, l’appel depuis 
Logo se fait par :e APPEL :ADR 
:ARG. Le premier argument correspond 
au point d’entrée dans le sous- 
programme et le second argument cor- 
respond à un paramètre à fournir au 
S/P. Le résultat est récupéré à une 
adresse fixe, connue, de la page zéro. 


Quand un Apple. 


Les applications concernent principa- 
lement l’utilisation de périphériques non 
standard. Des exemples sont fournis 
pour piloter un lecteur de cassette ou 
contrôler toute carte d’interface. D’ail- 
leurs, le plus bel exemple est la carte 
Porte-Parole vendue par Édiciel qui se 
connecte dans l'Apple IT ou Ile et qui 
est un synthétiseur vocal. Le pro- 
gramme PICOLO.PARLE de la dis- 
quette Utilitaires s’en sert pour donner 
des explications de vive voix sur le 
maniement de la tortue. 


Pour programmer en Assembleur des 
sous-programmes d’entrée/sortie par 
exemple, les explications du manuel de 
référence sont plutôt réduites. Il s’agira 
donc d’un travail de fourmi, même si le 
programme de démonstration musicale 
fait une bonne impression. Dans ce 
domaine, les applications sont l’objet 
des fichiers Musique, Music.Bin, 
Music.Src. En tapant RAMENE 
“MUSIQUE puis FRERE, vous aurez 
à reconstituer la musique d’une comp- 
tine célèbre, à partir de quatre motifs ou 
blocs mélodiques dénommés FA, FE, FI 
et FO, la constituant. Cette approche de 


la synthèse musicale sans solfège est 
originale. 


Sinon, la procédure JOUE :N1 :D1, 
où NI est une liste de notes (nombres) 
et DI1 la liste des durées de chacune des 
notes de N1, vous permet de composer 
une mélodie. Quant à manipuler cette 
mélodie avec des répétitions ou des 
changements de rythmes et de tonalités, 
cela s’avère aussi simple que de faire tra- 
cer un polygone par la tortue. Le 
manuel « Premiers pas en Édi-Logo » 
suggère d’aller très loin dans ce domaine 
en inventant des procédures récursives 
en musique. 


Pas de Logo . 


‘sans tortue 


Et la tortue ? Elle apparaît avec l’in- 
jonction DESSINE. Les possibilités gra- 
phiques sont celles (largement diffusées) 
de maniement d’une tortue dont le cap 
est variable de 0° à 360° et qui dispose 
d’un terrain de 280 par 240 pas. Si elle 
sort de l’écran, c’est pour revenir aus- 
sitôt sur le côté opposé. Les variations 
d’échelles ou de couleurs ne posent 
aucune difficulté. 


On trouvera ci-dessous une procédure 
graphique récursive donnée en exemple 
dans la disquette Utilitaires. Pour des 
raisons de précision du dessin, nous 
avons dû nous limiter au niveau 3 de 
profondeur, mais rien n’est impossible 
dans le domaine de la récursivité : le 
niveau 4 dessinera 3 figures de niveau 
3 aux 3 sommets du triangle de base, 
soit 27 petits triangles, le niveau 5 en 
dessinera 81, le niveau 6, 243, etc. 


La récursivité due à l’appel de TET 
à l’intérieur même de la procédure TET 


FOUR TET :TAILLE : PROFONDEUR 

TESTE PROFONDEUR > & 

SIVRAI REPETE 3 [MORCEAU :TAIÏLLE TET 
TAILLE x. ,5 : PROFONDEUR - 1 DR 159 


AV :TAILLE DR 154 MORCEAU TAILLE OR 
186) 
SIFAUX STÜP 
FIN 
POUR MORCEAL TAILLE 
AVANCE : TAILLE £ 3 «x COS 30 ) 
FIN 
Un exemple 
ZA 
Ra de procédure 


graphique 
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sous la forme TET : TAILLE * .5 
:PROFONDEUR -— 1, est non- 
terminale ; dans ce cas, la mémoire va 
faire défaut au-delà d’une certaine pro- 
fondeur : laquelle ? 


La sauvegarde des dessins sur disquet- 
tes, c’est-à-dire des 8 Ko situés entre les 
adresses $2000 et $3FFF, est obtenue 
par la primitive GARDE.DESSIN avec 
comme paramètre un nom attribué au 
dessin. 


Il existe également une primitive pour 
afficher directement un dessin enregis- 
tré sur disquette : c’est RAMENE.DES- 
SIN suivie du nom du dessin tel qu’il a 
été baptisé au moment de la sauvegarde. 
Et, pour compléter le tout, la primitive 
DELETE.DESSIN permet de suppri- 
mer un dessin de la disquette. 


Le logiciel en quelques lignes 
Nom : Édi-Logo_ 


Ordinateurs : : Apple. 1164 Ko, Apple lle etlic. 


Forme : disquette 

Édité par : Édiciel (Matra et Hachette) 

Prix public: 1480 FF. : 
Principale orientation : :interpréteur in 


La sauvegarde des procédures par la 
primitive GARDE assortie d’un nom de 
fichier, fait une copie sur disquette de 
l’espace de travail occupé, c’est-à-dire 
de toutes les procédures créées en 
mémoire vive. On peut éventuellement 
en effacer quelques-unes avec EFFACE 
avant la sauvegarde. Ces opérations 
sont assez restrictives quand on les com- 
pare à celles qu’Apple-Logo permet : 
groupement de procédures et de varia- 
bles, enterrement de groupes pour les 
protéger, déterrement. 


Dans la disquette Utilitaires, il faut 
signaler la présence d'EDIT.FORME 
qui est un programme éditeur de for- 
mes. Ces formes (ou « shapes » ou 
« sprites »), une fois créées sous cet édi- 
teur et baptisées, peuvent se déplacer sur 
l'écran, changer de taille et remplacer 
éventuellement la tortue, mais elles ne 
peuvent être orientées que dans quatre 
directions. 


L'utilisation d'Édi-Logo est à conseil- 
ler pour découvrir le langage Logo sur 
l'Apple, et le manuel « Premiers Pas » 
écrit par Catherine Berdonneau contient 
beaucoup d’exemples motivants et 
d'idées de projets. Cela dit, l’ex- 
ploitation du logiciel à l’aide du manuel 
de référence est plutôt difficile : il faut 
analyser les exemples fournis sur la dis- 
quette Utilitaires qui couvrent les appli- 
cations essentielles. 


Nicole BRÉAUD-POULIGUEN 
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LES COUPS D'ŒIL DE LIST. 


STORY BOARD 


DES DESSINS 
ANIMÉS POUR LA 
GAMME THOMSON 


ORSQU'ON a la chance de posséder un 
ordinateur capable de performances 

graphiques, on rêve souvent de créer de belles 
images et même, de leur donner vie à la manière 
des dessins animés, Avec un TO7, un T07/70 ou 
un MO5, le rêve devient réalité grâce à un logiciel 
intitulé Story Board. La mise en scène se met à la 
portée de tous, une fée les y attend. 


E Bien que son nom ne l'indique 
pas, Story Board est un logiciel 
français. Il est édité par Langage et 
Informatique, une société toulousaine. 
Il se présente sous forme de disquette ou 
de cassette. La première forme est plus 
facile d'utilisation et beaucoup plus 
rapide. Mais elle entraîne la présence 
d’un lecteur de disquette, périphérique 
coûteux. Pour ceux qui n’ont pas la 
chance de le posséder, la version sur cas- 
sette sera suffisante. Elle nécessitera 
plus de patience. 


Le chargement du logiciel (ici sous 
forme de disquette) est simple, il s’ef- 
fectue sans manipulation particulière. 
Le programme nous présente alors une 
charmante fée. Elle est aidée dans ses 
efforts par une sorcière qui traverse 
l’écran en le nettoyant consciencieuse- 
ment, avec son véhicule habituel : un 
balai ! 


L’exécution de cette scène, sans doute 
réalisée par Story Board lui-même, est 
assez convaincante et peut séduire les 
plus incrédules. Mais au prix de quels 
efforts un tel résultat est-il obtenu ? 


Tout se fait avec 


le crayon optique 


Le logiciel est un utilitaire graphique 
complet. Il propose en premier lieu la 
création de dessins avec, pour seul outil, 
le crayon optique. C’est lui qui permet 
de sélectionner les diverses options pro- 
posées par le menu et de réaliser les des- 
sins. Dès qu’il allume un point dans la 
zone droite de l’écran, ce point est 
reproduit à gauche de l’écran, à une 
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échelle huit fois plus petite, correspon- 
dant à l’aspect réel de l’œuvre en gesta- 
tion. Le suivi est donc immédiat. 


Le menu propose 28 fonctions sélec- 
tionnables par le crayon optique, qui 
permettent de nombreuses fantaisies. 
Des déplacements, des retournements, 
des duplications, des rotations sont pré- 
vus avec, éventuellement, la protection 
d’un dessin déjà créé par une fonction 
dite « rideau ». Ce qui pourra éviter des 
désagréments. D’autant plus que certai- 
nes fonctions, conduites imprudem- 
ment, peuvent mener à la perte d’une 
partie du dessin déjà réalisé. 


Les dessins sont conservés sous forme 
de GRS$. Leur taille est donc limitée à 
une grille horizontale de 16 points sur 
8, puisque 128 seulement de ces GRS 
sont disponibles. Ce nombre est réduit 
de façon significative sur TO7 sans 
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extension mémoire : 70 GR$ seulement 
sont disponibles. 


A partir du dessin initial, Story Board 
permet alors un véritable travail de mise 
en scène. Il propose de mettre au point 
un montage pouvant comporter un 
maximum de dix scènes de dix plans 
chacune. Ici encore, la réduction des 
possibilités est très significative sur le 
TO7 de base, puisqu’alors le maximum 
possible est de deux scènes de quatre 
plans chacune. 


L’animation du dessin exige toutefois 
un réel effort de la part du créateur. 
Pour chaque plan, sept paramètres doi- 
vent être définis : déplacements hori- 
zontal et vertical, début et fin de la por- 
tion de dessin affectée, couleurs de 
l’image et du fond, temporisation. La 
mise au point d’un montage de la taille 
maximum exigera donc l’entrée de 


700 paramètres successifs ! 


Là encore, tout se fait avec le crayon 
optique, ce qui nécessite une certaine 
habitude d’utilisation avant d’atteindre 
précisément le but recherché. 


Certains outils facilitent le travail. Il 
est possible de corriger un plan précis, 
voire toute une scène si elle est mau- 
vaise, La projection du montage scène 
par scène sur l’écran permet de juger, 
en direct, les résultats atteints. Avec de 
la patience, ils peuvent être specta- 
culaires. 


Le menu offre alors la possibilité de 
conserver l’œuvre sur cassette ou dis- 
quette. Le dessin est enregistré sous 
forme de fichier binaire, les paramètres 
sous forme de DATA. L’ensemble peut 
ainsi être récupéré sans difficulté et 
réemployé à volonté, même à l’intérieur 
d’autres logiciels. La disquette contient, 
à cet effet, un programme non protégé 
qu’il suffira d’adjoindre à n’importe 
quel autre programme pour lui appor- 
ter une touche artistique. 


L’inconvénient majeur de Story 
Board réside dans l’utilisation du crayon 
optique. S’il apporte une grande sou- 
plesse dans les manipulations, il oblige 
malheureusement à rester trop près de 
Pécran dont la luminosité a dû être 
poussée suffisamment pour compenser 
la « myopie » du crayon. 

Les séances d’utilisation de ce logiciel 
sont donc une épreuve pour les yeux. 
Cet inconvénient disparaîtrait avec une 
tablette à digitaliser, mais elle n’existe 
pas sur la gamme Thomson. 


Le logiciel en ere ligues 
Nom : Story Board 
Ordinateurs : TO7, T07/70. H05 
Forme : cassette où disquette 
Auteur : Guy Leblond 


| Édité et distribué par : Han gnge etienne 
tique (Toulouse) : 

Prix public : : 290 FF la cassette 540 FF la 
disquette k 
Principale orientation : : création de des- 
sins et animation t 


Avant de pouvoir jongler avec Story 
Board, il faudra faire de nombreux 
essais. Les effets souvent spectaculaires 
seront le résultat d’une bonne dose de 
patience et de précision. Ce logiciel est 
donc précieux et propre à développer la 
créativité, surtout pour un prix de 
290 FF ttc dans sa version sur cassette, 
et de 340 FF ttc dans sa version sur 
disquette. 


BOIS 
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LES COUPS D'ŒIL DE LIST 


D-BASIC 


UN BASIC ÉTENDU 
POUR DAI 


ALGRÉ tout le soin que le constructeur apporte à la conception 
matérielle et logicielle de la machine, il manque toujours les « petits 
riens » qui rendent le Basic plus attrayant et plus performant. 
D-Basic est un de ces utilitaires qui étendent le langage et 
le dotent de possibilités dignes des langages dits « structurés ». 


D-Basic est disponible sous forme 

de cassette ou micro-cassette 
numérique, à charger sous Utility. Con- 
trairement à une pratique couramment 
observée, la protection (sérieuse) n’al- 
longe pas outrageusement le temps de 
chargement. C’est un bon point. Le lan- 
cement est automatique, une fois le 
chargement achevé, et il est possible de 
programmer comme à l’accoutumée en 
Basic, mais avec toute une série de nou- 
veaux ordres qui pallient les manques du 
langage initial. 


Il y a du Pascal 


dans l'air 


La seule différence dans les ordres 
habituels concerne l'instruction condi- 
tionnelle IF. En effet, la structure du 
Basic Dai rend nécessaire, sous D-Basic, 
d’achever la condition par ENDIF. En 
contrepartie, sous ce format, la condi- 
tion peut s’étirer sur plusieurs lignes, 
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GRÂŒ À SA NOUVELLE FORMULE 
ÉTENDUE , LE BASic 
“D-BASiC”, 
REND VOS OCTETS 
ENCORE PLUS 


sans restriction. La nouvelle forme est, 
bien sûr, IF... THEN...ELSE...ENDIF. 
Les amateurs de programmation struc- 
turée apprécieront l'apparition du 
ELSE. Ils aimeront également trois 
structures qui autorisent la construction 
de programmes dignes de Pascal : ce 


sont les branchements sur labels, les 
procédures, les fonctions. Plus de 
GOTO ni de GOSUB renvoyant à des 
numéros de ligne incompréhensibles. II 
suffit de déclarer un label, en début de 
ligne, sous la forme : 100 ‘‘TOTO. 
Ensuite, les appels se font de façon sim- 
ple, par exemple : 

10 ON B GOTO ‘TOTO, ‘TITI, 

“TATA 


Les procédures et fonctions s’écrivent 
comme en Pascal. Elles sont définies en 
tête de programme, sous la forme DEF 
PROC, ou PROCEDURE, ou bien 
DEF FN, ou FUNCTION, et s’achèvent 
par END PROC ou END FN. Bien 
entendu, les variables locales sont auto- 
risées, par la commande LOCAL 
X,Y,Z. Pour couronner le tout, la 
récursivité est présente, si bien que pour 
calculer une factorielle, il suffit de défi- 
nir une fonction du genre : 

10 FUNCTION FAC (1) 

20 IF 1=0 THEN FN=1 

30 ELSE FN =I+#FAC (1-1): END IF 
40 END FN 


La variable obligatoire FN contient le 
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résultat du calcul. L’appel se fait de 
façon classique : 

100 INPUT ‘VALEUR’; V: PRINT 
110 PRINT FAC (V) 

120 GOTO 100 


Les expressions que le programme 
peut passer aux procédures et fonctions 
sont d'emploi très souple : il est possi- 
ble de passer en paramètre une autre 
fonction, qui n’a pas besoin d’être éva- 
luée. Il est parfaitement valide de pas- 
ser l’expression SIN (X), si la fonction 
est libellée, par exemple : 

200 DEF FN MACHIN (FN Z) 


Les deux structures de contrôle 
REPEAT...UNTIL et WHILE...DO... 
WEND sont présentes, ainsi que la com- 
mande RESTORE < line number > , ou 
mieux RESTORE < label >. Voilà de 
quoi construire des programmes irré- 
prochables ! D’autres nouvelles facili- 


1 REM 
2 REM --- TURTLE COMMAND --- 
3 REM 


19 PROCEDURE PENUP: PENFLAG=0: 


PROCEDURE PENDOWN: PENFLAG=i: 


END PROC 


tés, si elles ne sont pas indispensables, 
se révèlent d’emploi agréable. Par exem- 
ple DOKE, qui, vous l’avez peut-être 
deviné, est un POKE sur deux octets, 
DEEK (V), qui est l'inverse (PEEK sur 
2 octets) ou bien le DIMensionnement 
de matrices qui, sous D-Basic, n’est plus 
limité à 255 éléments, mais. à 2000 par 
défaut (plus, si nécessaire, dans les limi- 
tes de la mémoire vive). 


Les erreurs 


sont traquées 


Bien plus intéressants sont les ordres 
gérant les erreurs : ON ERROR 


GOTO...RESUME font désormais par- 
tie du Basic Dai, ainsi qu’un utile ON 
BREAK GOTO et BREAK ON / 


END PROC 


DEF PROC FORWARD R: XNEW =X+R*C0S (ALPHA): YNÉW=Y+SIN (ALPHA) 


40 IF PENFLAG=1 THEN DRAW X,Y XNEW,YNEW PENCOL: END IF 


X=XNEW: Y=YNEW: END PROC 


X=XNEW:Y=YNEW: END PROC 
PROCEDURE 
PROCEDURE RIGHT TETA: 
PROCEDURE CLEAN: 


PROCEDURE SQUARE L: PENDOWN: 


FORWARD L:LEFT 99: NEXT: RIGHT 
FORWARD L:LEFT 72: 
REM 

REM 

REM -—-— DEMO ——— 
REM 
MODE 6: COLORG @ 5 8 14: 
X=XMAX/2: Y=YMAX/2 

FOR I= 50 TO 19 STEF -1 
PENTA 1: FORWARD 5: LEFT 5 
NEXT 

END 
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ET 


ALPHA=ALPHA-TETA*PI/180: 


FILL G,8 XMAX,YMAX @: 


NEXT: RIGHT :6@: PENUF: 


DEF PROC BACK R: XNEW=X-R#COS (ALPHA) : YNEW=Y-R#SIN (ALPHA) 


IF PENFLAG=1 THEN DRAW X,Y XNEW,YNEW PENCOL: END IF 


LEFT TETA:ALPHA=ALPHA+TETA#PI/180:END PROC 


END PROC 


END PROC 


FOR INDEX=1 TO 4 
360: PENUP: END FROC 


DEF PROC PENTA L:FENDOWN: FOR INDEX=1 T0 5 
* 


END PROC 


PENCOL=S 


BREAK OFF, permettant à peu de frais 
de protéger assez efficacement un pro- 
gramme écrit sous D-Basic. 


Pareille adjonction nécessite de nou- 
veaux messages d’erreur. D-Basic porte 
leur nombre à 55, fonctionnant comme 
par le passé lors de l’analyse syntaxique 
de chaque ligne, dès qu’elle est tapée. 
J'ai beaucoup apprécié le fait que les 
nouvelles commandes s’écrivent norma- 
lement dans le programme, sans abon- 
dance de CALLM, comme pour d’au- 
tres logiciels prétendant offrir les mêmes 
services. Une des rares servitudes est 
l’obligation de compiler le programme 
avant de le sauver (commande COM- 
PILE), mais lavantage est l’auto- 
démarrage d’un tel programme au char- 
gement. Cette dernière particularité, 
combinée avec BREAK OFF rend un 
logiciel non listable (et, a fortiori, non 
copiable, du moins simplement). 


D’autres commandes (encore !}, dont 
la description sortirait de cette présen- 
tation, se révèlent très puissantes lors 
des conversions d’une valeur numérique 
en chaîne de caractères, ou bien passent 
à une procédure la dimension d’une 
matrice, dimension qui n’est pas forcé- 
ment connue à l’avance dans le pro- 
gramme. Au fait, vous ai-je dit qu’il est 
possible de passer tout un tableau à une 
procédure ou fonction, au moyen d’un 
ordre unique ? 


Le logiciel en quelques lignes 
Nom : D-Basic 

Ordinateurs : Daï PC et Dai T 

Édité par : Dainamic club Belgique Mottaart 
205170 Herselt (Belgique) 

où : Dainamic France, 9 rue Lavoisier, 59140 
Dunkerque 

Prix public : 2 000 F belges, version cas- 
sette audio (350 F français) 

Principales orientations : nouvelles com- 
mandes étendant le Basic du Dai, et permet- 
tant la programmation structurée 


On trouvera ci-contre, un exemple, 
écrit par l’auteur de D-Basic, montrant 
comment réaliser facilement un 
embryon de langage Logo graphique. 


Dernière minute : la version 2.2 est 
désormais disponible. Elle apporte deux 
nouvelles commandes $LIST et XREF 
qui donnent respectivement une liste 
formatée avec indication des boucles et 
sous-programmes et une table des réfé- 
rences croisées avec, en particulier, la 
liste des procédures et des fonctions 
employées, et leurs numéros de lignes. 
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LES COUPS D'OŒIL DE LIST. 


MONITEUR 1.0 


UN MONITEUR POUR 
ORIC-1 ET ATMOS 


À programmation en langage-machine est 
possible sur Oric:1 ou Atmos, à condition 
d’avoir un logiciel adéquat. Moniteur 1.0 en est un 
exemple, il est spécialement tourné vers l'essai et 

la mise au point de programmes. 


Il ne faut pas toujours se fier aux 

apparences. Bien que Moniteur 
1.0 soit présenté comme un logiciel pour 
Oric-1 (dans la version que nous avons 
testée), il se charge parfaitement sur un 
Atmos. 


Une notice de deux feuillets décrit 
toutes les fonctions du logiciel. C’est 
assez court. Le programme chargé 
s'exécute automatiquement et l’on se 
retrouve sous moniteur. L'éditeur est de 
type ligne : les commandes tapées et 


+ 
o 


DÉC HE GRIP Jr ré pn tes ST 


RE ee 


RUBENS 


É 
$ 


IS 


(eee 


RAR RRSRPRR 
CIE 


sy 


Lee 
POI 
DEAR 
CT DOUCHE Te 
NÉ DÉCRET EU 


HAE) 


Moniteur 1,0, Ë 
routine désassemblée 
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corrigées avec les touches curseur sont 
validées par la touche RETURN. Tout 
ce qui se trouve sur la ligne est alors pris 
en compte. 


L'utilisation de cet éditeur, différent 
de celui qui est disponible sous Basic, 
est agréable. L’écriture d’octets ou de 
codes ASCII se fait directement en 
tapant l’adresse concernée suivie des 


données à rentrer. Les commandes sont 


celles de désassemblage, DUMP d’oc- 
tets et DUMP ASCII. 


Un petit assembleur 


intégré 


Le déroulement de l’affichage, entiè- 
rement revu, est extrêmement rapide. 
La commande STEP propose une exé- 
cution pas à pas d’une routine en 
langage-machine. De même que 
TRACE. Ces deux instructions présen- 
tent l’inconvénient de traiter pas à pas 
les appels de sous-programmes effectués 
par JSR. Elles peuvent être suivies, de 
même que la commande d’exécution 
d’une routine, de paramètres visant à 
modifier les registres A, X et Y du 6502 
avant exécution. Mais avec une exécu- 
tion directe (commande GOTO), cette 


option « plante » le programme. De tel- 
les « bogues » sont sans doute le fruit 
d’une programmation rapide. Elles se 
retrouvent fréquemment dans les 
logiciels. 

La commande MOVE déplace des 
blocs de mémoire en précisant les adres- 
ses de début, de fin et d’arrivée. Elle 
n’impose aucune restriction quant à la 
disposition relative des blocs. Mais pour 
reloger facilement les routines, il man- 
que une commande de déplacement 
avec calcul des instructions sur trois 
octets. 


La commande de recherche ne porte 
que sur des caractères ASCII, ce qui est 
pratiquement inutile. Elle aurait été pré- 
férable sur les octets. 


Une pression sur CTRL P envoie à 
l’imprimante tout ce qui se trouve à 
l'écran. Des listes d’octets, de caractè- 
res ou même de mnémoniques, tapées 
au clavier, sont assemblées immédiate- 
ment. Des modifications locales du 
programme-objet peuvent donc être 
effectuées. 


Le logiciel en quelques lignes 


Nom : Moniteur 1.0 : 


Ordinateurs : Oric-1 et Atmos 

Forme : cassette 

Édité et distribué par : Loriciels 

Prix public : 140 FF 

Principales orientations : moniteur, 
assembleur et mise au point des routines 


Les inconditionnels du Basic pour- 
ront trouver, dans ce logiciel, de quoi 
concevoir des routines en Assembleur. 
Il leur en coûtera 140 FF ttc. 


Dénis SEBBAG 
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UNE PROCÉDURE PASCAL 


E langage Pascal ne dispose pas d'instruction 
effectuant la lecture d’un octet en mémoire 
centrale, La fonction présentée ici, équivalent de 
PEER, a pour objet de combler cette lacune. Elle 
permet d'aller lire la valeur d’un octet dont on 
connait l'adresse en mémoire. 


C’est une procédure très courte 
qui va nous permettre la lecture 
d’un octet en mémoire centrale : le 
corps du programme tient en deux lignes 
si l’on ne compte pas le begin ni le end. 


Dans la déclaration de la fonction, le 
paramètre ADRESSE est l’adresse de 
l’octet que l’on veut lire. La valeur 
retournée par la fonction est celle de 


TOUT DE MÊME 


— MAXINT -1 à —1. En effet, la 
valeur MAXINT +1 est généralement 
égale à -MAXINT — 1, en raison du 
débordement que cause l’addition 
MAXINT +1 où la retenue vient se 
mémoriser à la place du signe. 


Ainsi, sur un ordinateur à mots de 
seize bits ADRESSE devra prendre les 
valeurs de 0 à 32767, puis de — 32768 
à — 1. Ce parcours de tous les emplace- 
ments de la mémoire est illustré par le 
tableau ci-dessous. 


Notons par ailleurs qu’un compila- 
teur travaillant (même exemple) sur une 


de façon contiguë, variera généralement 
entre les valeurs —(N div 2)... et (N div 


2) — 1, formules où N représente la capa- 
cité mémoire de l’ordinateur exprimée 
en octets. 


Pour parcourir dans l’ordre numéri- 
que toutes les mémoires que la machine 
peut adresser, il faut faire varier 
ADRESSE de 0 à MAXINT, puis de 


machine à mots de seize bits refusera, 
dans un programme, la constante 
— 32768. Cette dernière devra donc être 


remplacée par l’expression équivalente 


—32767-1 qui est normalement 
acceptée. 


Toujours pour les machines travail- 


Poctet situé à cette adresse. 


Numéro 
d'ordre 


Valeur 
décimale 


Valeur binaire 


Deux octets 


0 00000000 00000000 

Mr l 00000000 00000001 
par adresse | 2 00000000 000000 10 
’ 3 00000000 0000001 1 

4 00000000 00000100 


L’adresse est transformée sous forme ji O111 
d’un entier qui peut prendre toutes les 32766 01111111 11111110 

* valeurs utiles. Comme la constante 32767 01111111 11111111 
MAXINT, prédéfinie en Pascal, est — 32768 10000000 00000000 
l’entier le plus grand pouvant être repré- — 32767 10000000 00000001 
senté sur un mot-mémoire de la — 32766 10000000 00000010 
machine, ADRESSE peut varier de (..) (...) (..) 
— MAXINT — 1 à MAXINT. Cet inter- _. TH 11111100 

s — 3 11111111 11111101 

valle englobe toutes les adresses possi- _ 11111111 11111110 


bles. Toutefois, pour se limiter aux seuls 
emplacements existants, le paramètre 
ADRESSE, si la mémoire est installée 
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11111111 11111111 
Les 65536 cases de la mémoire diversement représentées. 


Positions 
de la mémoire 
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à 


UNE PROCÉDURE PASCAL 


BizRRRE. . RIEN 
SUR c'idsTeucTio 
FTÉEK ? 


lant avec des mots de seize bits, la lec- 
ture doit s’effectuer en deux fois 
puisqu’il faut accéder d’une part à l’oc- 
tet de poids faible et d’autre part à l’oc- 
tet de poids fort (voir encadré). 


L’octet de poids faible peut être placé 
en mémoire avant l’octet de poids fort 
(on dit alors que la polarité de l’ordi- 
nateur est négative). Dans ce cas, pour 
la lecture du mot placé à l’adresse 
17520, l’octet de poids faible est lu à 
l’adresse paire 17520 et l’octet de poids 
fort à l’adresse 17521. 


Inversement, sur un ordinateur dit à 
polarité positive, les octets de poids fai- 
ble sont aux adresses impaires et les 
octets de poids fort sont aux adresses 
paires immédiatement inférieures 
(adresses des octets de poids faible dimi- 
nuées de 1). 


Enfin, il faut savoir que l’accès à cer- 
taines adresses de la mémoire peut être 
interdit par le matériel. Pour connaître 
ces adresses, il est nécessaire soit de se 
référer à la notice du constructeur, soit, 
si elle ne les indique pas, de procéder à 
un test général. 


C’est à dessein que les concepteurs du 
langage Pascal n’ont pas prévu en stan- 
dard une fonction de lecture en mémoire 
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équivalant au PEEK du Basic. Ils ont 
en effet voulu ce langage aussi proche 
que possible de l’utilisateur. Dans le 
même état d’esprit, toute instruction 
proche du fonctionnement réel de la 
machine, peu lisible, a été bannie. De 
plus, les lectures en mémoire sont tou- 
jours spécifiques à un matériel ou même 
à un système d’exploitation donné. Leur 
utilisation ne permet donc pas de réali- 
ser des programmes portables. 


Evitons 


la routine 


Cette fonction permet cependant de 
lire certaines variables-système qui ne 
sont pas accessibles directement. Elle 
évite d’écrire une routine en Assembleur 
pour un simple accès à un octet en 
mémoire centrale. De toute façon, il 
faut essayer, dans toute la mesure du 


HER TOUT DE MÊME 


possible, d'isoler avec précision ces 
accès afin qu’ils puissent être facilement 
modifiés si le programme est transporté 
sur une autre machine. 


Enfin, une telle fonction est indispen- 
sable pour l’écriture d’un programme de 
vidage de la mémoire dont les résultats 
(bien que difficiles à exploiter) sont très 
utiles pour connaître mieux à la fois le 
matériel et le système d’exploitation 
utilisé. 

Dans notre procédure, la variable 
MEMOIRE est un enregistrement qui 
est considéré 
. soit comme un entier qui indique une 
adresse, 

e soit comme un pointeur vers un 
tableau de deux octets. 


Les champs ADRESSE et POIN- 
TEUR contiennent toujours la même 
valeur, puisqu'ils partagent la même 
zone en mémoire centrale. La technique 
utilisée ici est un moyen détourné d’ini- 
tialiser un pointeur, ce que ne permet- 
tent pas les compilateurs, à l'exception 
de la valeur prédéfinie NIL. 


function lecmen (adresse : integer) : integer ; 


type 
var 


mot = packed array [0..1] of 0..255 ; 
memoire : record case boolean of 


true : (adresse : integer) ; 
false : (valeur : À mot) 


end ; 
begin 
memoire.adresse : = adresse ; 
lecmen : =memoire.valeur À [0] 


{end ; 


Poids faible et poids fort 


Pour mémoriser un nombre entier 
compris entre 0 et 255 (bornes compri- 
ses), un octet suffit. Avec deux octets, on 
peut enregistrer des nombres valant 
jusqu’à 2/6— 1, soit 65535. On distingue 
alors l’octet de poids faible et l’octet de 
poids fort. 

Pour obtenir la valeur enregistrée sur 
deux octets, on additionne octet de poids 


faible + (octet de poids fort X 256). 
Autrement dit, l’octet de poids fort com- 
prend la partie entière du résultat de la 
division de la valeur par 256. Et l’octet 
de poids faible contient le reste de cette 
division. 


Ainsi, pour coder 38637, on aura : 
e poids fort = int(38637/256) = 150 
poids faible — 38637 — (256 X 150) = 
38637 — 38400 — 237 


La première instruction consiste donc 
à mettre dans le champ ADRESSE la 
valeur qui a été transmise en paramètre. 
La seconde instruction reprend cette 
valeur, mais en la considérant comme 
un pointeur vers un tableau d’octets 
situé en mémoire centrale. Comme ce 
pointeur a été initialisé auparavant à la 
valeur ADRESSE, la valeur retournée 
par la fonction sera celle de l’octet dont 
on a transmis l’adresse. 


Voilà comment en deux instructions, 
et avec une pincée d’astuce, il est possi- 
ble de se fabriquer, en Pascal, une ins- 
truction PEEK. 


Thierry CHAMORET 
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N programme en Basic se met au service de 
ceux qui doivent écrire des textes, Les 


résultats prennent des formes difi 


ntes, maïs ils 


sont toujours cohérents. Une nouvelle façon de 


traiter son courrier de vacances, pa 


Enfin un programme qui compose 

du texte ! Attention, il n’invente 
rien, et sûrement pas le sujet qu’il va 
traiter. Mais il puise son inspiration 
dans un réservoir de phrases construi- 
tes au préalable par l'utilisateur. Ces 
phrases, ‘‘à développement par arbores- 
cence””, sont stockées dans des lignes de 
DATA (voir lignes 660 et suivantes du 
programme). Dans l’exemple présenté 
ici, elles provoquent la rédaction d’une 
courte lettre transmettant toujours les 
mêmes idées, avec des mots différents. 


Variations 


autour d’un thème 


Voyons, sur un petit exemple, le prin- 
cipe général. Une phrase ‘“‘arbores- 
- cente’”” se présente sous la forme d’une 
expression formée de chaînes de carac- 
tères, de parenthèses et d’opérateurs (+ 
et x). Nous choisirons : (Le téléphone + 
est + (une invention+un instrument de 
communication) + (extraordinaire* 
formidable) + .). L'opérateur + repré- 
sente un ‘‘et’”, il provoque la concaté- 
nation de chaînes de caractères. Ainsi 
Le téléphone + est donnera Le téléphone 
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EE 


est. L'opérateur + représente un ‘‘ou 
aléatoire’”’, une seule des chaînes de 
caractères qui l’entourent sera choisie. 
Et donc, dans  l’expression 
extraordinairexformidable, seul un des 
deux adjectifs sera choisi, de manière 
aléatoire, par le programme. 

Ainsi, l'exemple initial pourra donner 
les phrases : 
e Le téléphone est une invention 
extraordinaire. 
e Le téléphone est un instrument de 
communication extraordinaire. 
e Le téléphone est une invention 
formidable. 


ELLE 


e Le téléphone est un instrument de 
communication formidable. 


Les expressions qui seront traitées par 
le programme apparaissent dans des 
lignes de DATA (lignes 660 à 740, ici). 
L'opérateur ‘‘ou aléatoire”, inventé 
pour la circonstance, est susceptible de 
s’appliquer à plusieurs opérandes diffé- 
rents, mais il n’est pas associatif. Le 
principe consiste à employer trois piles : 
e une pile ‘‘opérandes”” dans laquelle 
sont stockées les chaînes de caractères 
ou opérandes ; 

e une pile ‘‘opérateurs”” dans laquelle 
sont stockés les opérateurs (+ et +) et 
les parenthèses ouvrantes ; 

e une pile ‘‘exécution”’ qui reçoit les 
opérandes dépilés de la pile opérandes 
en vue de l’exécution globale d’un 
opérateur. 


Dans chaque ligne de DATA, 
l'analyse des expressions est effectuée de 
gauche à droite. Elle suit les règles 
suivantes : 

e si une parenthèse fermante est rencon- 
trée, les chaînes de la pile opérandes 
sont dépilées, empilées dans la pile exé- 
cution, et les opérateurs sont dépilés ; 


Comment introduire ses propres textes 


L'introduction des phrases à partir de la ligne 660 suit certaines règles imposées par 
le principe d’évaluation : 
eiln’y a pas d'opération prioritaire. Des parenthèses judicieusement placées sont donc 
nécessaires pour lever toute ambiguïté. Ainsi l'expression (coucouxhello + c’est moi) 
est incorrecte, le programme ne sachant pas quelle opération traiter en priorité. Il faut 
écrire, par exemple : ((coucouxhello) + c’est moi) ; 
e la ‘‘remontée”’ vers le début de l’expression ne s’effectue que lorsqu'une parenthèse 
fermante est rencontrée. Il est donc nécessaire de fermer la parenthèse à la fin d’une 
ligne, mais aussi de lui associer une parenthèse ouvrante qui sera le premier caractère 
de la ligne de DATA ; 
< d’une manière générale, il faut qu’à toute parenthèse cuvrante corresponde une paren- 
thèse fermante et réciproquement. Le nombre de parenthèses ouvrantes doit donc être 
égal au nombre de parenthèses fermantes. 

Si Pune de ces règles n’est pas respectée, le message ‘‘erreur de parenthèse’? apparaît 
ou alors, le programme se ‘‘plante’”. 
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UN PROGRAMME BASIC 


Générateur de textes 
Programme en Basic 
Auteur Thierry Lévy-Abégnoli 
Copyright LIST et l’auteur 


19 REM----INITIALISATION---- 

28 CLEAR IOB0:REM RESERVE 188@ OCTETS POUR LES CHAINES DE CARACT 
ERES 

30 DEFINT A-Z:REM ACCELERE LES CALCULS (FACULTATIF) 
40 DIM PDO$(3@) ,POP$ (38) ,PEX$ (20) 

58 CLS:REM EFFACE L'ECRAN 

b@ REM----LECTURE D'UNE "PHRASE POTENTIELLE"---- 

70 READ CH$ 

80 IF CH$="FIN" THEN END 

90 D=0:0=0:E=0 

190 REM----RECHERCHE D'ERREURS DE PARENTHESES---- 
118 FOR 1=1 TO LEN(CH#) 

128 IF MID$(CH$,1,1)="{" THEN 11=11+#1:607T0 14@ 
138 IF NID$#(CH$,1,11=")" THEN 12=12+1 

149 NEXT I 

158 IF I1C)12 THEN PRINT "ERREUR DE PARENTHESE":END 


170 REM EXTRACTION D'UNE PHRASE ALEATOIRE 
188 REM À PARTIR DE LA PHRASE POTENTIELLE 


200 FOR 1=1 TO LEN(CH$) 

210 CARS=MIDS(CHS,1,1) 

220 IF CAR$=")" THEN 290 

238 IF CAR$()"(" AND CAR$()"+" AND CAR$<>"#" THEN 270 
248 IF MOTS$()"" THEN PDO$(D)=MOTS#+" ":MOTS$="":D=D+1 
250 POP$(0)=CAR$:0=0+1 

260 GOTO 518 

270 MOTS$=MOTS$+CARS 

288 6070 518 

298 IF MOTS$C)"" THEN PDO$(D)=MOTS$+" “:MOTS$="":D=D+1 
J08 GOSUB 600 

318 OP$=POP$ (0-1) :0=0-1 

320 GOSUB 608 

330 IF POP$(0-1)=0P$ THEN O=0-1:G0T0 328 

348 IF POP$(0-1)<>"(" PRINT "ERREUR DE PARENTHESE":END 
358 0=0-{ 

360 IF OP$="+" THEN 480 

370 REM---EXECUTION DE L'OPERATION "ET"--- 
JAU'REN--=225<<- NOTÉE" + -sssasssseasesss 

398 PDO$(D)="" 

400 FOR J= E-1 TO Q STEP -1 

418  POO$(D)=PDOS(D)+PEX$(J) 

428 NEXT J 

438 D=D+1 

440 E=Q:REN VIDAGE DE LA PILE EXECUTION 

450 60T0 518 

4b@ REM--EXECUTION DE L'OPERATION "OU ALEATOIRE"-- 

IQ REM= === nen NOTÉE # -------------- 

480 PDO$(D)=PEXS(RND(E)-1):REM RND(X) TIRE UN NOMBRE "ALEATOIRE" 
COMPRIS ENTRE { ET X INCLUS 

498 D=D+i 
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500 E=Q 

310 NEXT I 

520 REM----AFFICHAGE DE LA PHRASE ALEATOIRE---- 
338 PRINT PDO$(0) 

548 60T0 70 

DJ REM==SsSsnnesnsese sers noie emesse 

360 REM DEPILAGE DE LA PILE DE DONNEE ET 

578 REN EMPILAGE DE LA DONNEE DANS LA 

588 REM PILE EXECUTION 


600 PEXS(E)=PDOS$(D-1):E=E+1:D=D-1 

61Q RETURN 

620 REMA#HHEHEEHENEEREERÉRERENERERSEEREES 

638 REM RESERVOIR DE PHRASES DÉFINIES 

648 REM DE MANIERE ARBORESCENTE 

650 REMAHHEHEHAEEERRERERENEEENEREENEREE 

668 DATA *{ + (BONJOUR#SALUT#COUCOU) +'+((ON VA+(ASSEZ BIEN+B 
IEN4TRES BIEN))#CA VA#CA ROULE POUR NOUS+# (NOUS NOUS PORTONS+ (COM 
ME DES CHARMES#MERVEILLEUSEMENT)))+.)" 

670 DATA "(NOTRE PERIODE DE+(VACANCES#REPOS#DETENTE) + (TOUCHE À S 
À FIN#ARRIVE À SON TERME) +,+(DOMMAGE#HELAG#TANT PIS)+1)" 

688 DATA “(ON+(ESPERE#SUPPOSE) + (QUE CHEZ VOUS#QU'A LA MAISON#QU 
AU BERCAIL)+(CA+ (VA#MARCHE#BAIGNE) }+COMME+ (VOUS+ (VOULEZ*LE SOUHA 
ITEZ))+.) 

698 DATA "((ICI#(DANS NOTRE LIEU DE+(VILLEGIATURE#DETENTE+# (REPOS 
+(MERITE#BIEN GAGNE#TANT ATTENDU)1)))+, LE+(CLIMATETEMPS)+(EST#R 
ESTE#DEMEURE ) + (PLUTOT*ASSEZ} + (CLEMENT#AGREABLE )+,)" 

708 DATA "((NOUS ALLONS POURTANT REVENIR#C'EST BIENTOT LE RETOUR 
#DANS QUELQUES JOURS, NOUS REVOILA}+,1" 

TIQ DATA "(SEUL+(LE BONHEUR4LE PLAISIR) +DE+((VQUS REVOIR+ (DANS Q 
UELQUES JOURS#BIENTOT) )#NOS RETROUVAILLES)+(NOUS CONSOLE#ECLAIRE 
NOTRE COEUR)+,)" 

720 DATA “{(A TOUT DE SUITE#A BIENTOT#BYE BVE)+,+(BISQUS#PAISERS 
+.) 

730 DATA "( J0J0+T0T0+COC0+MOMO) * 

740 DATA"FIN":REM PERMET LA DETECTION DE LA FIN DES DATAS 


Deux exemples 
d'exécution 


SALUT ! NOUS NOUS PORTONS MERVEILLEUSEMENT . 

NOTRE PERIODE DE VACANCES ARRIVE A SON TERME , TANT PIS, 
ON SUPPOSE QU'A LA MAISON CA VA COMME VOUS LE SOUHAITEZ . 
ICI , LE TEMPS EST ASSEZ CLEMENT , 

DANS QUELQUES JOURS, NOUS REVOILA . 

SEUL LE PLAISIR DE NOS RETROUVAILLES ECLAIRE NOTRE COEUR . 
A TOUT DE SUITE , BAISERS . 

J0J0 TOTO COCO MOMO 


COUCOU ! ON VA BIEN 
NOTRE PERIODE DE DETENTE TOUCHE À SA FIN , DOMMAGE' 
ON ESPERE QU'A LA MAISON CA BAIGNE COMME VOUS VOULEZ . 
DANS NOTRE LIEU DE REPOS TANT ATTENDU , LE CLIMAT DEMEURE PLUTOT 
CLEMENT , 
C'EST BIENTOT LE RETOUR . 
SEUL LE PLAISIR DE VOUS REVOIR BIENTOT ECLAIRE NOTRE COEUR , 
BYE BYE , BISOUS . 
J0J0 TOTO COCO MONO 
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ES 


Gébut) 


ICI 


VILLÉGIATURE 


CD 


DANS NOTRE LIEU DE 


Un exemple d'arbre 

Chaque expression comprise entre 
deux opérateurs + de premier niveau (ou 
avant le premier ou après le dernier d’une 
ligne) engendre un arbre. L’exemple 
représenté ici, correspond à l’expression 
située avant le premier opérateur + de 
premier niveau de Ja ligne 690. Il com- 
prend six chemins différents, ici termi- 
nés par le mot ‘‘suite”’ qui renvoie la 
branche à l’arbre suivant (un arbre à une 
seule branche :,LE). Les autres arbres de 
cette ligne comprennent respectivement 
1, 2, 3, 2 et 2 branches. La ligne 690 peut 
donc générer, potentiellement, 6 x 1 x 2 


X3XxX2X2= 144 phrases différentes. 


construite et se trouve sur la pile opé- 
randes. Il ne reste plus qu’à la cueillir 


- pour l’afficher. 
MÉRITE BIEN GAGNÉ TANT ATTENDUI . | 


D'un Basic à l’autre 


L’adaptation de ce programme à d’au- 
tres ordinateurs (l” Amstrad, par exemple) 
est très facile. Il suffit de savoir que la 
ligne 20 y est inutile, que THEN est obli- 
gatoire à la suite de IF (ligne 340, il faut 
écrire : IF POP$(O-1)< > ‘‘(’ THEN 
PRINT ‘ERREUR DE PARENTHE- 
SE’’:END) et que RND(E), ligne 480, 
doit être remplacé par INT(E+*x RND + 1). 
En effet, RND(E) génère, sur le TRS-80 
modèle 1, un nombre aléatoire entier 
compris entre 1 et E. Mais, sur d’autres 
ordinateurs, RND génère un nombre 
compris entre 0 et 1 et, ainsi, INT(E+ 
RND + 1) est bien un nombre entier com- 
pris entre 1 et E. 
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tout cela a lieu jusqu’à ce qu’une paren- 
thèse ouvrante soit rencontrée sur la pile 
opérateurs. L'opérateur peut alors être 
appliqué aux opérandes de la pile exé- 
cution que l’on vide immédiatement ; 
on place ensuite le résultat sur le haut 
de la pile ; 

e si un opérateur est rencontré, il sera 
empilé dans la pile opérateurs ; 

e si une chaîne de caractères est rencon- 
trée, elle sera empilée dans la pile 
opérandes. 


En remontant ainsi jusqu’à la pre- 
mière parenthèse ouvrante, la phrase est 


/ 


“Le hasard 


est-il poète ? 


Pour construire une pile en Basic, un 
tableau et une variable suffisent : la 
donnée empilée est mise dans l’élément 
du tableau ayant la variable pour indice, 
puis cette variable est incrémentée. 


Liste des variables 
PDOS$(i) : pile de données, contient les 
morceaux de la phrase en construction. 
D : pointeur de la pile de données, pointe 
sur l’élément recevant le prochain empi- 
lage, PDOS(O). 

POPS$(i) : pile d'opérateurs, contient les 
opérations et les parenthèses en attente. 
Q : pointeur de la pile opérateurs. 
PEXS$(i) : pile contenant les données qui 
attendent une exécution globale de l’opé- 
fation en haut de la pile opérateurs. 

E : pointeur de la pile exécution. 


Dans l'exemple donné plus haut, 
deux niveaux de parenthèses seulement 
ont été utilisés. Mais il n’y a pas de 
limite. On peut rapidement créer une 
‘explosion combinatoire” qui aura 
pour effet de multiplier les résultats. 
Ainsi, les textes seront variés. 


Certains ont peut-être reconnu le 
principe des listes du langage Lisp. La 
mise en place de ces textes correspond 
en quelque sorte à un mini-langage de 
programmation. 


OLI 
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Thierry LÉV 


] 


N vingt années d'existence, malgré sa 

_ simplicité et sa puissance, Logo est toujours 
resté en retrait par rapport aux langages de 
programmation classiques tels que Basic ou 
Pascal. Et pourtant, Logo est maintenant 
disponible sur la plupart des ordinateurs. 
Pourquoi ne pas échanger des idées et des 
procédures sans trahir la philosophie du produit ? 
Vos idées seront les bienvenues. 


Logo a été créé dans le cadre de 

recherches en intelligence artifi- 
cielle. On peut, grâce à Logo, étudier les 
processus de pensée d’une population 
non formée à l’informatique, car ce lan- 
gage est simple d’accès. Il n’en est pas 
pour autant simpliste. Apprendre des 
mots ne signifie pas comprendre une 
langue, mais l’acquisition de la maîtrise 
d’une langue débute par l’apprentissage 
de mots recouvrant des concepts clairs. 
On pourrait comparer Logo à un objet 
très personnel, comme une brosse à 
dents par exemple. Il n’a vraiment de 
valeur que pour celui qui le pratique. Il 


avion 
bateau 
train 


vélo 


Liste simple : 


j'ai pris l’avion, le bateau 
puis le train pour finir à vélo. 
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ne viendrait à l’idée de personne d’em- 
prunter, d'échanger des brosses à dents 
— ou des brosses à méninges. Dans cette 
série d’articles donc, nous allons essayer 
plutôt d’échanger nos manières de 
b(r)osser. Nous supposerons de votre 
part une connaissance des primitives et 
nous insisterons sur les modes de raison- 
nement puissants que permet ce 
langage. 

Nous commencerons par nous inté- 
resser aux arbres binaires. Un arbre 
binaire est une structure dans laquelle 
tout élément est suivi de deux autres élé- 
ments, contrairement à ce qui se passe 
dans le cas de la liste simple dont cha- 
que article n’a qu’un suivant. L’arbre 
binaire est un cas particulier des struc- 


tures arborescentes, elles-mêmes cas 
particulier des graphes. Dans un arbre, 
chaque élément, sauf le premier (qui est 
appelé racine) n’a qu’un précédent, 
alors que dans un graphe, il peut exis- 
ter plusieurs précédents. 


Un arbre 
| à fleurs ï 


En général, les arbres binaires sont 
utilisés lorsque la recherche d’un élé- 
ment peut résulter d’une suite de ques- 
tions dont la réponse est oui ou non : 
vaste champ d’applications. Ainsi, dans 
le cas de la recherche d’une fleur, on 
aura : 

— Est-elle rouge ? 

— Non. 

— Est-elle bleue ? 

— Oui. 

— Est-ce une fleur des montagnes ? 
— Oui. 

— Est-ce un colchique ? 

(etc.) 


L'arbre binaire correspondant 
(Recherche d’un nom de fleur) est repré- 
senté page ci-contre. Que remarque-t- 
on ? Tout d’abord que chaque branche 
d’arbre se termine par un nom de fleur ; 


Couleur 


vert rouge 


\ 


arbre herbe 


ae) 


saule pin chêne feu 


| 


brillant 


LUS À NT 


blanc 


chaud froià 


vison glace neige 


Arborescence : le chêne est un arbre de couleur verte. 
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Ecoute ce que je 
lis dans “isT": 


& arbre binaire : la woiture 
pœsède un moteur , c'est 
un véhicule qui roule ». 


véhicule ? 


_ 


à moteur ? boule 


A 


voiture chariot 


inanimé ? 


arbre humain ? 


homme chien 


Arbre binaire : un arbre est inanimé, et ne roule pas ; la voiture possède un moteur, 
c’est un véhicule qui roule. 


manger 


chanter 


Graphe : 


si je commence par marcher, 
je peux faire ensuite 
ce que je veux, 


marcher sauf manger. 


dormir 


fleur des champs ? 


géranium 


coquelicot 


fleur de montagne ? 


cultivée ? 


colchique 
——— 


jacinthe 


bleuet 


Recherche d'un nom de fleur 
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ES “ORNE 


l'arbre est et doit toujours être complet. 
Deuxième remarque : on ne peut ajou- 
ter de branche qu’à partir d’une extré- 
mité en remplaçant un nom de fleur par 
une question qui sera suivie d’une nou- 
velle réponse en cas de non. Dans notre 
exemple, l'extrémité pisseniit sera rem- 
placée par la question « jaune ? » et par 
les réponses « pissenlit » et « lys » selon 
que la réponse sera « oui » ou « non ». 


| Un:arbre 


sens dessus dessous 


Dans la suite de cet article, nous dis- 
tinguerons les questions, que nous 
appellerons nœuds et les noms de fleurs 
appelés feuilles en langage mathémati- 
que. Un arbre binaire est donc consti- 
tué d’une racine (premier nœud), de 
nœuds et de feuilles. 


Pour transformer un arbre binaire en 
une structure de liste, nous considére- 
rons un nœud comme une liste de trois 
éléments. Le premier élément sera le 
nœud lui-même, sous forme de liste. Le 
deuxième élément sera la réponse 
« oui ». Si cette réponse est un nouveau 
nœud, l’élément sera une liste, sinon ce 
sera un mot. Le dernier élément sera la 
réponse «non ». Ici encore, si la 
réponse est un nouveau nœud, l’élément 
sera une liste, sinon un mot. De cette 
façon, nous pourrons distinguer les 
nœuds, qui sont des listes, des feuilles 
qui sont des mots. C’est la méthode la 
plus simple. L’arbre binaire sera donc 
une liste des ensembles triples de cha- 
que nœud. Exemple : 


[...[[cultivée ?][[en pot ?]jacinthe iris]bleuet]] 


La réponse « non » de « cultivée ? » 
est « bleuet ». La réponse « oui » est 
une liste de trois éléments, et donc une 
nouvelle question. Le tout constitue la 
réponse « non » à la question « fleur 
de montagne ? » Cela peut paraître un 
peu complexe, mais Logo se débrouille 
très bien dans les listes de listes. De plus, 
cette structure est très simple : 

e la question est toujours le PREMIER 
élément d’une liste ; 

e la réponse OUI en est toujours le 
second, c’est-à-dire le PREMIER du 
SAUFPREMIER ; 

e la réponse NON est toujours le DER- 
NIER élément. 


Un petit peu d’analyse maintenant. 
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Rappel de la syntaxe LOGO 


OGO est un langage procédural. Les procédures disponibles à l’initialisation sont 
appelées primitives. Celles que vous créez sont nommées procédures. Une procé- 
dure commence par le mot POUR et se termine par FIN. 


En Logo, un nombre est écrit tel quel, éventuellement précédé d’un signe. Un mot 
est toujours précédé de guillemets (on ne referme pas les guillemets à la fin du mot). 
Une liste est encadrée de crochets carrés []. Les noms de variables, qui ne sont pas 
liés à leur contenu, sont des mots. Enfin, le contenu de la variable ‘‘A est :A. 


En Logo, le problème des arbres binaïi- 
res se divise en trois parties : 

1 - Initialiser l’arbre et lui donner un 
nom. 

2 - Explorer l’arbre jusqu’à ses feuilles. 
3 - Ajouter éventuellement une branche 
par acquisition d’un nouveau nœud et 
d’une nouvelle feuille. 


Nous aborderons aujourd’hui les 
deux premiers points. Nous étudierons 
le troisième dans un prochain article, 
puis nous affinerons les procédures dans 
le but d’écrire un véritable programme 
conversationnel pour l’exploitation des 
arbres binaires. 


Pour initialiser l’arbre binaire, nous 
pouvons le réduire à sa racine et à deux 
feuilles : 

POUR INIT.ARBRE 

DONNE ‘ARBRE [[ROUGE?] PIS 
SENLIT COQUELICOT] 

FIN 


Nous pourrions même le réduire à 
une seule feuille, puisque le but du point 
3 (ajouter éventuellement une branche) 
est justement de constituer l’arbre. Cela 
nous donnerait : 

POUR ARBRE.MINIMUM 
DONNE ‘‘ARBRE ‘‘PISSENLIT 
FIN 


L’exploration de l’arbre doit se faire 
au moyen d’aiguillages sur chacun des 
nœuds, et cela jusqu’à la rencontre 
d’une feuille. Rien n’est plus simple à 
obtenir avec une procédure récursive. 
Le choix de la branche suivante est con- 
ditionné par la réponse — oui ou non 
— de l’utilisateur. La sortie de la pro- 
cédure intervient lorsque la réponse 
aiguille sur une feuille, autrement dit sur 
un mot et non pas sur une nouvelle liste. 


Exprimons le problème en français. 
Pour PARCOURIR un arbre, si l’arbre 
à parcourir se réduit à une feuille, PRO- 
POSER cette feuille comme solution. 
Sinon, AFFICHER la question corres- 
pondant au premier élément de la liste 
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constituant le reste de l’arbre à parcou- 
rir. Si la réponse est alors OUT, PAR- 
COURIR le reste de l’arbre correspon- 
dant au deuxième élément de l’arbre ini- 
tial. Sinon, PARCOURIR le reste de 
l'arbre correspondant au troisième et 
dernier élément de l’arbre initial. 


Exprimons maintenant le même pro- 
bième en Logo (Logo-Apple LCSI par 
exemple) : 

POUR PARCOURIR :ARBRE 

SI MOTP :ARBRE [PROPOSER 
:ARBRE STOP] 

ECRIS PREMIER :ARBRE 
DONNE ‘‘REPONSE LISLISTE 

SI :REPONSE = [OUIJ[PARCOURIR 
PREMIER SAUFPREMIER :ARBRE] 
[PARCOURIR DERNIER :ARBRE] 
FIN 


Proposer 


une solution 


C’est tout. Et cela marche bien à con- 
dition que l'utilisateur joue le jeu, et 
réponde bien par oui ou par non (1). En 
fait, la variable REPONSE n’est pas 
indispensable, et l’on aurait pu écrire la 
dernière ligne comme suit : 

SI LISLISTE = [OUI] [PARCOURIR 
PREMIER SP :ARBRE] [PARCOU 
RIR DERNIER :ARBRE] 


Voyons maintenant ce qui se passe 
quand il s’agit de proposer une solution, 
et commençons par exprimer le pro- 
blème en français. Pour proposer une 
feuille comme solution : 

AFFICHER la feuille 
AFFICHER la question : LA 


() Si l'utilisateur ne joue pas le jeu, il faudra légè- 
rement modifier PARCOURIR (nous verrons 
comment dans un prochain article). 


REPONSE EST-ELLE CORRECTE ? 


Si la réponse est OUI, AFFICHER 
un message triomphal. 


Dans le cas contraire, AFFICHER la 
question QUELLE EST LA 
REPONSE ? 


Puis AFFICHER une question 
demandant à l’utilisateur de formuler 
lui-même une question dont la réponse 
est OUI pour sa réponse et NON pour 
celle du programme. 


Appeler une procédure qui complè- 
tera l'arbre en fonction de son ancienne 
structure, de la feuille à remplacer et des 
nouveaux éléments acquis (nouvelle 
feuille et nouveau nœud). 


Exprimons maintenant le même pro- 
blème en Logo (Apple LCSD) : 
POUR PROPOSER :FEUILLE 
(CRIS [JE PROPOSE:] :FEUILLE) 
ECRIS [EST-CE EXACT ?] 

SI LISLISTE = [OUI] [EC [JE SUIS 
GENIAL] STOP] 

ECRIS [A QUELLE FLEUR 
PENSAIÏS-TU ?] 
DONNE ‘‘REP.OUI 
LISLISTE 

(ECRIS IQUELLE QUESTION 
AURAIS-TU POSEE POUR QUE LA 


DERNIER 


REPONSE SOIT OUI POUR] 
:REP.OUI [ET NON POUR] 
:FEUILLE]T) 
DONNE ‘NOUVEAU.NOEUD 
LISLISTE 


COMPLETER :ARBRE :REP.OUI 
(LISTE :NOUVEAU.NOEUD 
:REP.OUI :FEUILLE) 

FIN 


La traduction en Logo est donc quasi 
immédiate. Rappelons que la réponse 
OUI doit être un mot — donc DER- 
NIER LISLISTE —, et qu’en Logo 
LSCI, les parenthèses permettent aux 
primitives d’accepter un nombre quel- 
conque de paramètres. 

La procédure COMPLETER doit 
être une procédure récursive qui explore 
l’arbre et le reconstitue en remplaçant 
la feuille erronée par un nouveau nœud 
suivi de deux feuilles. Peut-être allez- 
vous l’écrire seul ? Dans ce cas, j’at- 
tends vos propositions. Sinon, à très 
bientôt pour compléter et affiner le 
programme. 


Robért DAGUESSE 
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OURSUIVANT plus avant nos investigations 
dans le domaine mystérieux du système 

d'exploitation des disquettes du Commodore 64 
(en d'autres termes, son DOS, disk operating 
system), voici un nouvel utilitaire qui permettra de 
remettre au catalogue un ou plusieurs fichiers 
détruits accidentellement ou par manque de 
prudence lors de certaines manipulations. 


Si les études présentées ici sont 
: destinées spécialement aux utilisa- 

teurs du C.64, elles sont presque tou- 
jours adaptables sur les autres modèles 
de la gamme Commodore. 

Avant tout, les points essentiels con- 
cernant les disquettes doivent être rap- 
pelés. La piste 18 y joue le rôle de piste 
maîtresse. 

Située en partie médiane de la zone 
d’écriture, elle renferme toutes les indi- 
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cations nécessaires au système pour 
l’utilisation de ce support magnétique. 


Elle contient en particulier, commen- 
çani sur le secteur numéro 1, toutes les 
indications qui sont affichées sur Pécran 
lors d’un LOAD*$”,8. 


On y trouve donc, inscrits sur les sec- 
teurs successifs : 
e le type du fichier, sous la forme d’un 
seul octet ; 


e le numéro de la piste, et celui du sec- 
teur où débute l’implantation du fichier 
(2 octets) ; 

e le titre, sous sa forme ASCII, consti- 
tué de 16 octets dont les derniers sont 
des CHR$(160) (espaces shiftés) lorsque 
le titre proprement dit a moins de 16 
caractères ; 

< le nombre de secteurs (ou BLOCKS !) 
occupés par ce fichier sur la disquette. 


| Détruit.…. 
où escamoté ? 


Un certain nombre de ces éléments 
sont gardés secrets lors de l’affichage du 
catalogue. Il s’agit en particulier, des 
deux octets représentant les numéros de 
piste et de secteur. Quant à l’octet du 
type de fichier, il décide de l’affichage 
ou du non-affichage de tous les autres 
renseignements sur le fichier. 


Ainsi, un fichier de type DEL (donc, 
détruit), n’apparaît jamais au catalogue. 
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LES DISQUETTES COMMODOR 


Outre le type DEL, quatre autres types 
de fichiers sont courants : SEQ (séquen- 
tiel), PRG (programme), USR (utilisa- 
teur) et REL (relatif). 


Mais le fait qu’un fichier DEL ne 
figure plus au catalogue, signifie-t-il sa 
disparition totale de la disquette ? 
Autrement dit, tous les octets qui com- 
posent ce fichier sont-ils éliminés à tout 
jamais du support magnétique ? 


Heureusement, il n’en est rien. Lors 
de la destruction volontaire d’un fichier, 
le SED (Système d’Exploitation des Dis- 
quettes}) se contente de remplacer l’oc- 
tet qui représente le type de fichier sur 


Utilisation du programme 


Il sera prudent, comme à chaque fois, 
de tester le programme sur une disquette 
sans importance. Une erreur dans la 
transcription risquant d’être fatale à tous 
les fichiers qu'elle contient. Ce n'est 
qu'après vérification minutieuse que vous 
pourrez sans risque l’appliquer sur une 
disquette contenant de précieux 
programmes. 

La manipulation de l'utilitaire ne pose 
pas de problème particulier. Le pro- 
gramme commence par passer en revue 
la totalité du catalogue de la disquette. 
Lorsqu'il découvre un fichier détruit, le 
titre correspondant est affiché à l’écran, 
et le programme vous interroge pour 
savoir si vous souhaitez le remettre au 
catalogue. Si votre réponse est positive, 
le comptage des blocs commence. 

Si le résultat de cette investigation est 
correct, vous devez indiquer au pro- 
gramme le type du fichier concerné 
(SEQ, PRG, USR ou REL). Le catalo- 
gue est alors modifié, puis une VALIDA- 
TION est effectuée, pour remettre à jour 
la BAM. Ce processus se poursuit 
jusqu’à épuisement du catalogue de la 
disquette. 

Un affichage du catalogue, suivi d’un 
chargement du fichier récupéré, vous 
assurera de la réussite de l'opération. 
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FER RSR RER ERA ER EE EEE EÉÉES 

FEH # UTILITAIRE CISQUE H,4 *+ 

FEN # FECUFERATEUR DE FICHIERS % 

REA A em EMA A A RE EEE 

PRINT"Q"."S RECLUFERATEUR DE FICHIERS " 

FRINT'BFERMET CE REMETTRE AU CATALOGUE LES FICHIERS CETRUITS." 


CHF LE 
2REN HE DE FICHIERS DEL 
CSC 3REM HR DE 
ei TO 


SECTEURS PISTE 


dr 21:HEXT 


QFEN 15 
UPEH &, 


SUE 114 
IGOEUE 1176 


##+ TITRE ET I 
LE 1134 
LE 114 


SC LE RE EEE TE SES ETES ET ET 


FÜR Ie TO 13: GETHE.AS:FE=FS+A#B:MEXT I 
FRINT' ae TITRE: MOLEFT#IF#,16):"9 10: 
RE 

FES RENE M AMENER ENRAERERRES PROG 
Feitiset 


RO2RIGHTSEFÉ,27 


PFAL 


FRINTHIS, MU" UPS: GOSUR 1126 
4 FÉIHT#IS,UB-P'S SU IGUSUR 1138 
4 5 
4 FER tt ++tetetett+t+t+ ENPFLACEMENT SUILANT 44h 
4 GETHE,F#2F LPH+CHS 2REM FISTE 
4 GETRE.SH:S SCUSE+CRE MEN SECTEUR 
45 : 
4 FOR Jen TO P:PERN IL Oh & TITRES MAXI FAR BLOC 
4 : 
4 REF HE EEE Et TRE OL FICHIER Ad 
: FAÉIHTHIN, CE-PUE ET +2 
GETHRE F+La$) AND 15 


IF # 


FER +++ EE++ PISTE, 
GETHE. + LE HE+CEE © 

G:REN FLUS DE TITRES 
ÉHE+CEE) :REM PFSF 3 


THEH FICHIER HOH DEL 


SECTELIR HE RE EEE 


GETHE,H#:5Fe 


FEUT 44 tt dt + tte TITEE FICHIER 44 


PISTE & SECT QE CERUT 


iE=1 

FRINT'TITRE Qi FICHIER ss" CHR#E Sd 
FÜR Ii To 1 SETHS.AS:IF ASE ES 
HET L:FRIHT CHF 
INPUT "AH FECUFERE 


CRI 
"RS 
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la piste 18, par un zéro. C’est l’indica- 
VOTRE MISSION Si VOUS L'ACCEPTEZ CONSISTE teur de type DEL. 
À RÉCUPÉRER LES SECTEURS PRÉCÉDEMMENT ES , nn 
OCCUPÉS PAR LE FICHIER AFIN D'ÉVITER LA Quant au fichier, il reste présent inté- 
DESTROCTION DÉFiNi Ti V GDE CE DERNIER. gralement sur la disquette, en attente 
5 = d’être remplacé par un nouveau fichier 
qui viendra ainsi, à la première occa- 
sion, détruire sa belle ordonnance. 


à 
IN 
= A 
©) Un repêchage 
bloc par bloc 
Cette mise à zéro d’un seul octet n’est 
pas la seule action du SED lors de la des- 
truction d’un fichier : son second tra- 
vail consiste à indiquer sur la « carte des 
} blocs disponibles » (BAM, Block Avai- 
lability Map) que les secteurs précédem- 
ment occupés par le fichier redeviennent 
libres et utilisables. 
Ed IF F$="N" THEN 39 Il faudra donc, pour remettre en 
SR IF R$Co"0" THEN 63@ fonction un fichier détruit, effectuer les 
66& à: rat: : : 
SPA RE +44tthttttttttt+tt++++t+ NB DE SECTEURS 444 tt opérations inverses : e , 
88 PRINT#1S, "B-P"Z;JKA2+0:GOSUE 1130 . remettre à sa valeur initiale l’octet 
EPA GETHZ,LS,H$ :L=ASCELS+CUS 2 2H= ASC CHS+ CAE D indiquant le type du fichier (c’est l’uti- 
D lisateur qui devra fournir lui-même cette 
PAR REP +444 + VÉRIFICATION DES RLOCS 44 EE EEE indication qui n€ figure plus nulle part 
F4 CR=-1:PRINT'TEST DE BLOCS C'sNgs" " ailleurs sur la disquette) ; 
748 CESCB+1 ; à de 
FSA IF PFF=û THEN S4G:REM FIN QU FICHIER ° remetire en état la BAM pour indiquer 
7eù S THEN G4G:REM FISTE ILLEGALE au système que les blocs sont à nouveau 
Fra PF> THEN &4G:REM SECT ILLEGAL occupés (cette nouvelle allocation est 
F88 PRINT#1S,"U1"23:@2PF:SF:G0SUE 1136 facile à exécuter avec la commande 
FSR PRINT#IS,"B-P"2;:@:GOSUE 1130 ; ne 
SGA GETHS,PFS.SF$ VALIDATE dont c’est précisément la 
S18 PF-ASCÉPES4+CR# 2 :SF=ASCLSFS+CASE » fonction) ; 
See 60T0 F4 < compter les blocs réellement occupés 


348 PRINTEIF CBCONS THEN PRINT"COMPTE DE BLOCS INCORRECT.":G0T0 ww» Par le fichier à récupérer et comparer 
SSA FRINT'TOUS BLOCS OK." cette valeur à celle qui figure sur le 
esa 3 catalogue. 
GORE +tttétt++++tttétt+t++ REMISE AU CATALOGUE +444 4 + si 2 Le 
G PRINT" 1- SEG":PRINT"2- PRG":PRINT"3- LGR":PRINT"4- REL" Cette dernière action devra être 
@ INPUT'TYPE QU FICHIER "375$ . menée afin de garantir l’efficacité de la 
A ie récupération du fichier. En effet, un 
2@ PRINT#1S, "U1"Z:G3Ps:S:G0SUE 1130 fichier détruit risque d’être écrasé à la 
ä PRINT#1S,"B-P#2 3 TRD+2 :GOSUE 1130 première occasion par un nouveau 
à nt 4 Shen à fichier enregistré sur la disquette. Dans 
? S,"B-FU23:@:G0S 38 FRA ES 
& PRINTRIS "US" D :P:G:G0QUE 1120 ce cas, la perte est irrémédiable, les 
à : octets du nouveau fichier venant rem- 
: SG PRINT'@ICHIER RETRAELI." placer tout ou partie de l’ancien fichier. 
som NEXT J : | # 
ht L’action proposée est une manière de 
1M18 1F Pi THEN F=P1:8-S1:G0T0 29G:REN SUITE 7 contrôler ce risque. Elle n’est pas 
1HZ@ à: absolue. 
LAXG REM +++ t++t+ FIN DE RECHERCHE 4444 tte , 
1448 PRINT'aSECHERCHE TERMIHEE." Et si les deux valeurs obtenues ne cor- 
1854 IF DE=3 THEH PRINT'ÆFAS DE FICHIER AEL® DETECTE. ":GQT0" 1@2@ respondent pas, la récupération peut 
1868 PRINT'@YALIDATION DISQUE EN COURS. * être considérée comme impossible : 
LA PRINT#1S, "VA": GOUSUE 113% : 5: D: ! : 
1 à adieu fichier ! Dans le cas contraire, le 
1894 CLOSE 2:CLOSE 15 fichier est très probablement retrouvé. 
. SOTA ira Ceci explique qu’il vaudra mieux éviter 
ECS in CE 
LAS PEN RME A EEMONPEREE SUP ERREURS DISQUE AH de trop attendre ie de FECUPETRE DA 
112 IHPUT#1S.E1,E$,E%,E4 fichier. Le mieux est d’agir dès que l’er- 
1148 IF E132a THEN ÉRINT" ERREUR DISQUE :":PRIHT E1","E#", "ER "eg reur est constatée ! 
115% RETUEH 
1158 : 
1174 END 
BERC'r. deañ: 
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RE 


Après avoir longtemps joué à 

cache-cache avec ceux qui l’atten- 
daient, le QL fait son apparition sur le 
marché français. Peut-être sera-t-il dis- 
ponible en version AZERTY lorsque 
vous lirez ces lignes, ce qui fera tout de 
même plusieurs mois de retard par rap- 
port à l’annonce initiale. 


Actuellement, le QL est livré avec un 
transformateur d’alimentation extérieur 
au boîtier, un câble péritel et un câble 
UHF. On peut donc le connecter aussi 
bien à un téléviseur couleur que noir et 
blanc. Si l’on veut utiliser un moniteur, 
il faut se procurer le câble correspon- 
dant. Contrairement aux apparences, le 
clavier n’est pas vraiment profession- 
nel : les touches ont une course un peu 
trop molle sur la fin et trop longue, mais 
ce défaut n’est pas suffisamment pro- 
noncé pour gêner les programmeurs. 


Téléviseur 


ou moniteur ? 


Avant d’entrer dans le vif du sujet, 
c’est-à-dire le Basic du QL, il nous faut 
d’abord dire un mot sur la façon dont 
l'ordinateur communique avec ses péri- 
phériques. Le QL est relié au monde 
extérieur par l’intermédiaire de ce que 
Sinclair appelle des canaux. Ces canaux 
peuvent déboucher soit sur une fenêtre 
de l’écran, soit sur un « micro-drive », 
soit sur une interface RS-232 C, soit sur 
un réseau comprenant d’autres QL ou 
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et qui, en nr se es bien à la 
programmation structurée. 


U 


QL 


256 X 256, on a 25 lignes de 42 carac- 
tères et la fenêtre des listes est confon- 
due avec la fenêtre exécution. 


En fait, la qualité de l’image obtenue 
sur le téléviseur qui a servi à cet essai 
(modèle très récent, il est vrai) est excel- 
lente. D’ailleurs, même en 84 colonnes, 
les caractères sont nets; une seule 
ombre vient ternir le tableau : les deux 
lignes du bas, airisi que les caractères de 


$ ‘€ se Cr 


Ni ai. 41 0 


Un design très pur 
qui joue sur la sobrièté 


Spectrums. Pour entrer en communica- 
tion avec un périphérique ou une fené- 
tre, il suffit d'ouvrir un canal et de le 
lui assigner. 


A la mise sous tension, trois canaux 
sont attribués d’office : 
e le canaï 0 est relié à la fenêtre de l’en- 
trée des commandes et de l’édition ; 
e le canal 1 est attribué à la fenêtre où 
s'affichent les résultats du programme ; 
e le canal 2 correspond à la fenêtre dans 
laquelle apparaïssent les listes de 
programmes. 


Au démarrage, le QL donne le choix 
entre deux options. Si l’on choisit la pre- 
mière (elle est destinée aux heureux pos- 
sesseurs d’un moniteur), la définition est 
de 512 sur 256 points et l’on dispose de 
25 lignes de 84 caractères. L'écran est 
alors divisé en 3 parties occupées par la 
fenêtre commande et édition, la fenêtre 
liste et la fenêtre exécution. La deuxième 
option correspond à l’utilisation d’une 
TV couleur. La définition est alors de 


RUE 


la première et de la dernière colonnes 
sont tronqués, mais il est possible de 
redéfinir les fenêtres d’affichage. 

Première constatation, l’éditeur du 
QL n’est pas vraiment plein écran. Ce 
n’est pas une tare en soi à condition que 
la conception se révèle sérieuse, et c’est 
le cas. Cet éditeur est construit autour 
de la commande EDIT suivie d’un 
numéro de ligne. La ligne demandée 
s’affiche dans la fenêtre commande/édi- 
tion qui occupe, sauf redéfinition, cinq 
lignes en bas de l’écran. On corrige 
ladite ligne en détruisant les caractères 
situés à droite ou à gauche du curseur, 
et en en insérant de nouveaux. 


La ligne ainsi modifiée ne pourra être 
validée que lorsqu'elle sera syntaxique- 
ment correcte. Si la personne qui pro- 
gramme ne parvient pas à repérer où se 
trouve l'erreur, seule une pression 
simultanée sur la touche d’espace et sur 
CTRL permet de sortir du mode édi- 
tion. Après validation, la ligne est ins- 
tantanément corrigée sur la fenêtre des 
listes. 


Pour créer une ligne, il suffit évidem- 
ment de la taper et, tant qu’elle n’a pas 
été validée, les différentes commandes 
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d'édition sont disponibles. En fait, une 
bonne surprise nous attend : dans ce 
mode, la frappe sur une des flèches ver- 
ticales fait apparaître, dans la fenêtre 
d'édition, la ligne précédant ou suivant 
la dernière ligne éditée. Il est ainsi pos- 
sible de monter ou de descendre à 
volonté dans le programme : on n’est 
pas si loin de l’éditeur plein écran. 


Les autres commandes de l’édition 
sont AUTO, RENUM (rénumérotation 
de tout ou partie d’un programme), et 
DLINE qui détruit le groupe de lignes 
spécifié : même rôle donc que le 
DELETE de Microsoft. En réalité, 
DELETE existe aussi dans le Basic QL, 
mais il concerne la gestion des « micro- 
drives » où il remplace l’ordre KILL... 


Les mots clés peuvent être abrégés, le 
QL rajoutant seul, en minuscules, les 
lettres manquantes. Exemple : si l’on 
frappe DEF FN, il apparaîtra sur la liste 
DEFine-FuNction. 


Le plus souvent, un programme 
informatique traite des informations qui 
se présentent sous forme de variables. 
C’est assez dire si les variables sont 
importantes. Voyons ce dont est capa- 
ble le QL dans ce domaine. 


| Malheureusement pas 


de double précisi D. . 


Les noms de variables peuvent attein- 
dre jusqu’à 255 caractères de longueur 
et sont composés de majuscules, de 
minuscules ou de chiffres. Mises à part 
les variables alphanumériques, dont le 
type sera spécifié par le suffixe $, le QL 
n’admet que deux types de variables 
numériques : 

1 - Les variables réelles dont les valeurs 
sont comprises entre E +615 et E—615, 
gigantesque intervalle, mais la précision 
n’est que de 8 chiffres. Quand on sait 
que le Basic du QL ne permet pas la 
double précision, il y a de quoi être un 
peu déçu. 

2 - Les variables entières codées classi- 
quement sur deux octets et donc com- 
prises entre — 32768 et +32767. 


L’ordre DIM permet, comme on s’y 


‘attend, de déclarer un tableau dont la 


dimension est quasi illimitée, mais il y 
a moins courant : en Basic QL, une 
variable n’est créée que si le programme 
rencontre une instruction attribuant une 
valeur à cette variable. Ainsi, les lignes 
10 A= 1 ou 10 INPUT B provoqueront 
la création de la variable A. En revan- 
che, ON C GOTO 100 provoquera un 
message d’erreur si C n’a encore reçu 
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la liste du programme exécuté dans celle de droite 


aucune valeur. De la même façon, si la 
variable C n’a pas été créée, l’exécution 
d’une ligne 10 PRINT C provoquera 
l’affichage d’une étoile, et non d’un 
zéro (comme ce serait le cas sur d’au- 
tres Basic). 


A propos des variables, ajoutons que 
l’interpréteur est capable d’effectuer des 
conversions de type lorsqu’une opéra- 
tion ne peut avoir lieu : 10 PRINT 1 + 
“2” affichera 3. Si cette possibilité 
paraît intéressante, elle ne va guère dans 
le sens d’une programmation 
rigoureuse, 

Le Basic QL se démarque nettement 
de la plupart des Basic type Microsoft. 
Si vous le voulez bien, jouons un ins- 
tant au jeu des différences. La ligne qui 
s’écrit habituellement : 10 IF A=1 LET 
X=1:Y=2: GOTO 1000 : ELSE IF 
B=1 THEN 2000 ELSE 3000 pourra 
s’écrire en Basic QL : 

10 IF A=I 
20 LET X=1: Y=2 
30 GO TO 1000 


40 ELSE 

50 IF B=1 

60 GO TO 2000 
70 ELSE 

80 GO TO 3000 
90 END IF 

100 END IF 


Vous me direz que le QL emploie plus 
de lignes ! C’est exact, mais avouez que 
la version en 10 lignes est plus claire et 
mieux structurée. D’ailleurs, qu’importe 
la longueur quand on dispose d’une 
mémoire vive de plus de 70 Ko. Pour la 
petite histoire, sachez que j’ai dû créer 
une routine pour mesurer l’espace dis- 
ponible car, apparemment, aucune 
fonction de type MEM ou FREE 
n'existe. 


Toujours au chapitre du contrôle des 
structures, il est possible, comme en 
Pascal, de créer des procédures. Qu’est- 
ce qu’une procédure ? C’est un sous- 


## 


programme très perfectionné auquel on 
donne un nom et que l’on appelle 
ensuite par ce nom en lui communi- 
quant éventuellement des paramètres. 
Reprenons notre jeu des différences. 
Imaginons que nous voulons créer un 
sous-programme affichant la moyenne 
arithmétique de trois nombres. En Basic 
classique on pourrait écrire : 

10 PRINT (XI+X2+X3)/3 

20 RETURN 


Si nous voulons utiliser ce sous- 
programme pour calculer la moyenne 
des nombres 10, 15 et 20, il faudra 
faire : 

100 X1=10 : X2=15 : X3—20 
110 GOSUB 10 


Avouez que ce « GOSUB 10 » n’est 
pas très explicite ! En Basic QL, on 
créera la procédure MOYENNE comme 
ceci : 

10 DEF PROCedure MOYENNE (A, 
B, ©) 

20 PRINT (A+B+C)/3 

30 END DEFine 


Jusque-là, peu de différence mais, 
pour utiliser cette procédure, il suffit de 
citer son nom, suivi de ses trois para- 
mètres : 100 MOYENNE 10, 15, 20 
provoquera l’affichage de 15. 


Les instructions GOSUB et RETURN 
deviennent ainsi inutiles, et si elles sont 
néanmoins présentes, C’est pOur assurer 
une certaine compatibilité avec la plu- 
part des autres Basic. Dans le même 
souci de compatibilité, le QL a inclus 
dans sa panoplie les instructions 
ON...GOTO et ON...GOSUB faisant 
lune comme l’autre double emploi avec 
la structure SELect...ENDSELect, aussi 
puissante que le CASE...OF du Pascal. 


Ajoutons, pour en terminer avec les 
procédures, qu’il est possible d’y décla- 
rer des variables dites « locales », c’est- 
à-dire qui ne vaudront qu’à l’intérieur 
de la procédure. Cela permet, par exem- 
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ple, d’employer les traditionnels indices 
de boucles I, J et K aussi bien dans le 
programme principal que dans les sous- 
programmes, et cela sans cbserver la 
moindre interaction néfaste. 


Une autre structure inspirée de Pas- 
cal est présente dans le Basic du QL, 


c'est REPeat...ENDREPeat qui définit 


les deux extrémités d’une boucle. La 
sortie se produit grâce à l’instruction 
EXIT placée « quelque part » entre 
REPeat et ENDREPeat. Pourquoi ne 
pas avoir choisi un véritable 
REPEAT...UNTIL ? 


On s'éloigne 


du standard 


Au chapitre des boucles, d’ailleurs, 
on constate que les très classiques 
FOR...NEXT sont là, mais timidement 
pour deux raisons au moins. Tout 
d’abord parce que NEXT peut être rem- 
placé par ENDFOR (décidément le QL 
aime beaucoup les END-quelque- 
chose). Ensuite parce que cette instruc- 
tion permet certaines fantaisies. Ainsi, 
quand on place une séquence d’instruc- 
tions sur la même ligne que FOR, 
NEXT n’est pas nécessaire. D’autres 
possibilités intéressantes sont offertes : 
une ligne comme ‘‘10 FOR 1=0, 1, 2, 
5 TO 8 : PRINT I; provoquera l’affi- 
chage de “0 1 2 5 67 8”. 


Pour le traitement des chaînes de 
caractères aussi, les concepteurs de ce 
Basic ont conservé un minimum de 
compatibilité avec le langage standard. 
Si l’on retrouve bien LEN et INSTR (et 
encore avec une syntaxe bizarre pour 
INSTR), ils ont rebaptisé ASC et 
STRINGS qui deviennent respective- 
ment CODE? et FILL$. Pourquoi, 
d’autre part, ne pas implémenter les 
habituels MID$, RIGHTS et LEFTS ? 
Sans doute parce que l’on peut facile- 
ment travailler sur les chaînes avec la 
seule instruction TO : 10 A$ = ‘BON 
JOUR” et 20 PRINT AS (2 TO 5) affi- 
chera ONJO. Mais il y a plus fort : 
10 A$ = ‘BONJOUR'’’ 

20 B$ = ‘‘BLEU”’ 

30 AS (3 TO 5)=B$ (1 TO 3) 
40 PRINT AS 

affichera BOBLEUR. 


Comme nous l’avons évoqué plus 
haut, le QL offre la possibilité de redé- 
finir les fenêtres d’affichage ou d’en 
créer de nouvelles. Pour ouvrir une 
fenêtre reliée au canal 6, on pourra 
taper la séquence : open # 6, scr — 128 
X 128a0 x 0. On aura ainsi défini une 
fenêtre occupant un huitième de l’écran 
et dont le coin supérieur gauche est situé 
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k :.. Liste des mots clés 
1" du-Basic du QL 


au point de coordonnées 0,0 (en haut, 
à gauche). Si l’on ne spécifie pas la taille 
de la fenêtre, l’écran est occupé en 
totalité. 


Pour lister le programme en mémoire 
sur la fenêtre 6, il suffit de faire LIST 
# 6. Pour faire tourner un programme 
sur cette même fenêtre, un simple RUN 
# 6 fait l’affaire. Parmi les autres com- 
mandes liées à la gestion de ces fenêtres, 
citons PAPER et BORDER qui permet- 
tent respectivement de redéfinir la cou- 
leur d’une fenêtre et de créer un cadre ; 
AT permet de positionner le curseur: 
INK fixe la couleur des caractères d’une 
fenêtre ; OVER offre des possibilités de 
surimpression. Avec CLS (tout le 
monde l’a deviné), on efface la fenêtre 
spécifiée dans la couleur désirée. Enfin, 
grâce à CSIZE, on peut redéfinir pour 
chaque fenêtre la taille des caractères 
affichés. Tout cela est très souple, mais 
un regret tout de même : certaines de ces 
instructions ne sont disponibles qu’en 
mode moniteur. 


Le graphisme est un des domaines de 
prédilection de cette machine. Tout 
d’abord, la définition graphique est 
excellente : 512 X 256 en mode moni- 
teur, c’est assez rare. Inutile d’entrer 
dans le détail de chaque instruction ; il 
suffit de savoir que presque tout est pos- 
sible : tracer une ligne, un cercle, un arc 
de cercle, un ellipse, allumer un point, 
un pavé de points, mettre en mouve- 


MODE RANDOMIZE 

FILL MOVE READ 
as COS FILLS MRUN RECOL 
ACOS ee FLASH NET REM 
ACOT CSIZE FOR...STEP...NEXT NEW REP 
2 PR ÉCRMAT ON .Goïo  FESPR 
ARCR Dares  GOSUB ON...GOSUB RESTORE 
ASIN DAYS a. RE RETRY 
AT DEG IF... THEN..ELSE OPEN-IN RUN 
ATAN DEFFN INK OPEN-NEW CAVE 
AUTO DEFPROC  INKEYS OVER + 
BAUD DELETE INPUT PAN SCALE 
BEEP DIM INSTR PAPER SCROLL 
BEEPING  DIMN INT PAUSE SDATE 
BLOCK DIR LBYTES PEEK SEL 
BORDER DIV LEN PEEK-W  SEXEC 
CALL DLINE LET PEEK-L SIN 
CHRS EDIT AE PENRE SQRT 
CIRCLE  ENDDEF  LINER PENDOMN. Stop 
CIRCLER ENDFOR  LST on. STRIP 

DI 

CLOSE ENDREP  LOAD POINER. | Lx 
CLS ENDSEL LOCAL POKE ue 
CODE EOF LOG10 POKE-W 
CONTINUE EXEC LRUN POKE-L UNDER 
COPY EXEC-W  MERGE PRINT WIDTH 
COPY-N  EXIT MOD RAD WINDOW 


ment et diriger des figures. On peut tout 
aussi bien travailler en coordonnées 
relatives ou absolues, ou encore redéfi- 
nir l’origine. Il est même possible de 
« piloter » une tortue grâce à un jeu 
d'instructions complet (comme quoi le 
Logo fait école). 


Dans le domaine des fonctions 
mathématiques, Sinclair a largement 
débordé du strict nécessaire qui sévissait 
souvent sur les machines de table. C’est 
ainsi que sont présentes toutes les fonc- 
tions trigonométriques (y compris 
cotangente) et leurs inverses, et que les 
fonctions DEG et RAD permettent les 
conversions d’angles. Malheureuse- 
ment, ici non plus, on n’a pas toujours 
repris les appellations standard : ATN 
devient ATAN, ACS se mute en ACOS 
et ainsi de suite. Tant pis pour les vieil- 
les habitudes. 


Pour le reste, le Basic du QL met à 
la disposition du mathématicien la divi- 
sion entière (DIV), le reste de cette divi- 
sion (MOD), les logarithmes décimaux 
et népériens (LOG10 et LN) et l’ex- 
traction de la racine carrée (SQRT). 
Toutes ces fonctions peuvent être com- 
plétées par de nouvelles grâce à la struc- 
ture DEFine FuNction.. ENDEFine, 
beaucoup plus puissante que le DEFFN 
des Basic classiques. Elle permet en effet 
de définir une fonction sur plusieurs 
lignes, et donc d’introduire des tests, des 
appels à des sous-programmes, etc. 


N° 7- MARS 85 


, 


Fiche technique du Sinclair QL 
Constructeur : Sinclair 
Prix public : environ 6 000 FF 
Processeur : 68008 
Mémoire vive : 128 Ko en version de 
base dont 32 Ko pour l'écran et 72 Ko 
environ pour l'utilisateur 
Mémoire morte : 48 Ko pour Basic et 
QDos 
Langage : Basic résident (150 mots clés) 
Affichage : 512 x 256 points en 4 
couleurs et/ou 25 lignes de 84 
caractères. 256 x 256 points en 8 
couleurs et/ou 25 lignes de 42 caractères 
Variables : 8 chiffres significatifs pour 
les réels avec exposant de -615 à +615, 
2 octets pour les entiers (-32768 à 
+32767). Variables alphanumériques de 
longueur pratiquement illimitée. 


Une précision qui a son importance : 
une fonction, de même qu’une procé- 
dure, peut s’appeler elle-même. Le Basic 
du QL connaît donc la récursivité sans 
restriction. 

Quand Sinclair innove, les uns crient 
au miracle, les autres font la moue, mais 
beaucoup se demandent comment le 
constructeur britannique fait pour créer 
des ordinateurs aussi bon marché. Eh 
bien, il adopte des compromis. Quand 
on lit pour la première fois sa fiche tech- 
nique, le QL peut paraître très sédui- 
sant. Certains « détails » toutefois font 
tiquer. Si le clavier est sans contexte 
meilleur que celui d’un ZX (sensitif) ou 
d’un Spectrum première manière (tou- 
ches à la gomme) il reste d’une qualité 
moyenne. Mais ce sont les fameux 
« micro-drives » qui ont suscité le plus 
d'inquiétude. 


Les commandes de QDos, directe- 
ment accessibles à partir du Basic, peu- 
vent être considérées comme une exten- 
sion de celui-ci. Elle sont, dans l’ensem- 


ble, classiques : FORMAT, bien 
entendu, formate une cartouche vierge, 
et COPY effectue, non moins évidem- 
ment, la copie d’un programme d’un 
drive sur un autre. Cette dernière com- 
mande sert également à transmettre un 
programme vers l'imprimante, la 
syntaxe étant COPY périphériquel TO 
périphérique2. 

BAUD permet de spécifier la vitesse 
de transmission par une des interfaces 
série (de 75 à 19200 bauds). LOAD, 
SAVE et DELETE assurent respective- 
ment la sauvegarde, la relecture et la 
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suppression d’un programme (LRUN 
charge et lance le programme spécifié). 
DIR affiche l’espace restant libre et la 
liste des programmes enregistrés sur une 
cartouche. MERGE considère un fichier 
comme un programme Basic et le 
fusionne avec le précédent en détruisant 
éventuellement les lignes qui se chevau- 
chent ; les erreurs de syntaxe sont signa- 
lées (l’origine du fichier en question est 
en effet quelconque et peut, par exem- 
ple provenir d’un autre ordinateur, sous 
forme ASCIi, par l’intermédiaire d’une 
RS 232 C). Il est par ailleurs possible de 
créer des fichiers et de sauvegarer des 
données. A titre d'exemple, prenons 
l'adaptation au QL des deux derniers 
tests de rapidité (1) de LIST. 


Text n° 9 : écriture. On relie le micro- 
drive n° 1 au canal 7. 
10 a$ = ‘‘LISTEST 
20 OPEN-NEW # 7, mdvl-test 
30 FOR i=1 TO 10000 
40 PRINT # 7, a$ 
50 NEXT ;i 
60 CLOSE # 7 


Test n° 10 : lecture. 
10 OPEN-IN # 8, mdvi-test 
20 FOR i=1 TO 10000 
30 INPUT # 8, a$ 
40 NEXT i 
50 CLOSE # 8 


Ces tests donnent d’assez bons résul- 
tats : 135 sec. en écriture, et 99 sec. en 
lecture. Il semble que le système exploite 
intelligemment la mémoire vi: :, en évi- 
tant les accès trop fréquents à la 
mémoire de masse. Si nous n’avons, 
d’autre part, constaté aucun problème 
de fiabilité durant l’essai, nous n’avons 
pas infligé aux lecteurs/enregistreurs de 
cartouches un véritable test d':ndurance 
— qui reste à faire. Enfin, on retiendra 
qu’une capacité de 100 Ko par unité 


{| n’est pas énorme, surtout pour un usage 


professionnel. 


Le QL peut émettre des sons par l’in- 
termédiaire d’un haut-parleur intégré, 
mais ils sont d’une piètre qualité. En 
outre un volume faible limite les possi- 
bilités de la machine dans le domaine 
musical. D'ailleurs, si l'instruction 
BEEP est perfectionnée (elle reçoit 
jusqu’à huit paramètres), elle est assez 
difficile à maîtriser, et l’on ne peut con- 
trôler qu’une voie. 


Le processeur du QL est souvent 
présenté comme un 32 bits. Il ne 
faut rien exagérer. En fait, seuls les 
registres internes possèdent 32 bits, les 
opérations ne s’effectuent que sur 16 
bits, et les accès-mémoire sur 8 bits. Le 
QL offre pourtant certaines possibilités 


(1) Pour les résultats des autres tests, voir ici- 
même, page 83. 


jusque-là inconnues sur du matériel 
grand public : si PEEK, POKE et 
CALL sont familiers, PEEK-W, 
POKE-W, PEEK:-L et POKE-L permet- 
tent la lecture et l’écriture en mémoire 
sur 16 et 32 bits. 


Les instructions EXEC, EXEC-W et 


SEXEC permettent, en principe du 


moins, le chargement et Pexécution en 
parallèle de plusieurs programmes. En 
ce qui me concerne, malgré de nom- 
breux essais, je ne suis pas parvenu à les 
mettre en œuvre. Dommage, car le 
fonctionnement en multitâche d’une 
machine aussi bon marché serait une 
innovation bienvenue. 


Le QL est doté d’une horloge interne. 
Cette constatation laconique pourrait 
être suivie d’une ribambelle d’instruc- 
tions. Je résumerai en disant que tou- 
tes les fonctions généralement associées 
à ce type de gadget (ce terme n’a rien 
de péjoratif} sont présentes. Il est même 
possible d'obtenir le jour de la semaine 
(par l’intermédiaire d’un chiffre). 


Avant de conclure, notons que le 
Basic du QL, impressionnant par ail- 
leurs, comporte quelques lacunes. Nous 
avons déjà évoqué l'absence de double 
précision. Il faut y ajouter l’impossibi- 
lité d'exécuter un programme pas à pas 
(office généralement rempli par les 
fameux TRON et TROFF). Nous 
n’avons pas, non plus, réussi à mettre 
en évidence un jeu d’instructions per- 
mettant le traitement des erreurs. L’ab- 
sence de possibilités de formatage (style 
PRINT USING) est moins gênante : 
une petite procédure bien sentie viendra 
facilement y remédier. 


Le Sinclair QL était annoncé à l’ori- 
gine comme un ordinateur à vocation 
professionnelle. De ce point de vue, il 
ne tient pas toutes ses promesses. C’est 
cependant une machine remarquable 
pour les passionnés de la programma- 
tion. Malgré quelques imperfections, le 
terme de « SuperBasic » n’est pas 
usurpé. L’inspiration très Pascalienne 
de ce Basic le rend moins concis qu’un 
Basic courant, mais cela présente plu- 
tôt un avantage dans la mesure où les 
programmes sont plus faciles à relire et 
à mettre au point. Une utilisation intel- 


ligente de certaines structures (en parti- 


culier des procédures, fonctions, SELect 
et IF... THEN...ELSE...ENDIF) per- 
mettront de passer un cap dans la com- 
plexité des problèmes. Revers de la 
médaille, ce langage s’écarte sur beau- 
coup de points du standard de fait 
qu'’est le Basic Microsoft. L'adaptation, 
par l’amateur, de programmes créés sur 
d’autres machines sera loin d’être aisée. 


Thierry LÉVY-ABÉGNOLI 


MISEZ PTIT: OPTIMISEZ! 


TRIANGLE 


DE PASCAL 


S 


I jongler avec la pile opérationnelle de votre HP-41 C, traquer la 
milliseconde perdue et rogner le moindre octet est votre pain 


quotidien... Ou si, à l'inverse, vous échappe parfois un peu de la subtile 
recherche des programmes en Notation Polonaise Inverse... 

Alors voici qui doit vous intéresser, En matière de programmation, est-on 
Jamais certain d’avoir fait aussi bien que possible ? Le mieux peut-il être 
l'ami du bien ? Dans cette rubrique, les défis se succèdent : 

des programmes toujours plus courts, plus rapides... Et les records vivent ! 


NH Que de plans n’a-t-on pas tirés sur 

| ce fameux tableau de chiffres 
nommé Triangle de Pascal. S'il existait 
un concours de beauté des tableaux, 
celui-là €" serait le Phénix à n’en point 
douter. 

Sa construction est élémentaire (voir 
ci-dessous) : à partir du sommet 1, on 
a posé que chaque nombre d’une nou- 
velle ligne est égal à la somme de celui 
qui est situé juste au-dessus de lui et de 
celui qui se trouve à gauche de ce der- 
nier. L'absence de nombre vaut 0. 


Immédiatement, des symétries appa- 


N° de ligne 
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raissent. La première colonne vaut tou- 
jours 1 et la seconde est égale au numéro 
n de la ligne concernée. Ces deux remar- 
ques sont aussi valables, respectivement, 
pour la diagonale principale et celle qui 
lui est immédiatement inférieure : le 
tableau est absolument symétrique. 


Simplifier, 


c'est condenser 


En fait, chaque ligne n du tableau 
correspond aux coefficients du dévelop- 
pement de l’expression (a+ b}". Ainsi, 
la seconde ligne correspond à : N=2, 
soit (a+b}?= a2+ 2ab + b? ; les coeffi- 
cients sont 1, 2, 1. 

De même, pour la cinquième ligne, on 
a: N=S5, soit (a+b})°=a$+5atb+ 
10ab? + 10a2b? + Sab4 + b$ : et les coef- 
ficients sont 1, 5, 10, 10, 5, 1. 


On simplifiera ce calcul de coeffi- 
cients en condensant l’expression du 
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Ma solution 


Le programme stocke pour un nombre n donné — entier, positif ou nul — tous les 
coefficients de (a +b)" : les éléments du triangle de Pascal. 

Mon programme occupe 24 octets sur 17 pas seulement. Seule la pile opérationnelle 
est employée dans le calcul. Avec le $END, final, un SIZE 316 peut être réalisé : la 
limite de n est donc 315 (pour une HP-41 CV ou CX). 

Pour cette 315° ligne du tableau, l’élément central (R157 et RI158) vaut 
2.993653731 x 10° et le temps de calcul total est inférieur à 65 secondes. Sachant la 
symétrie des coefficients de part et d’autre de l’élément central, le programme range 
la valeur calculée à la fois dans le registre p et dans (n-p) ce qui divise par 2 le nombre 
de boucles et évite les erreurs d’arrondi en fin de liste. 

L’initialisation de départ est minimale : pour bien faire, il conviendrait d’ajouter 
un CLRG effaçant les mémoires et ABS et INT pour se prémunir des entrées vicieuses 
de n négatifs ou non entiers. Mais alors on limiterait n à 314 du fait de l'augmentation 
de la taille du programme. 

L’algorithme employé ne calcule pas directement (os à l’aide de n!/pl!{n-p)! car sinon 
on serait limité à n = 69. En effet 70! provoque un OUT OF RANGE (erreur de dépas- 
sement de capacité). La ligne 10 n’est jamais exécutée. En fin de programme, les coef- 
ficients sont dans les registres 00 à n. Si la limite matérielle est n — 315, la limite abso- 
lue — car OUT OF RANGE — de l’algorithme est n = 336. 


Jean THIBERGE 


QUI DIT MIEUX ? 


OSINUS, sinus, tangente et fonctions inverses, c’est bien. Modes degrés, 


radians ou grades, c’est pas mal non plus. Mais les fonctions hyper- 
boliques, c’est mieux ! 


D'autant plus que la HP-41 C ne les possède pas et que cela nous offre un 
prétexte à une optimisation effrénée. Le tableau ci-dessous exprime ces fonc- 
tions hyperboliques à l’aide de fonctions de la HP-41 C ou d’autres fonctions 
hyperboliques : certaines, donc, devront pouvoir être appelées comme sous- 
programme de calcul... 


Équation 


Cosinus hyp. 
Sinus hyp. 
Tangente hyp. 
Argument cos. 
Argument sin. 
Argument tan. 
Amplitude hyp. 
Sécante hyp. 
Amplitude inv. 
Sécante inv. 


cosh({x) = (e*+e *)/2 

sinh(x) = (e*—-e-*)/2 

tanh(x) = sin(gd(x)) 
cosh-l{x) = sech”(1/x) 

sinh = (x) = gd = '(arctg(x)) 
tanh” (x) = gd" l(arcsin(x)) 
gd(x) = 2arctg(e*) —- 11/2 
sech(x) = 1/(cosh(x)) 

gd = !(x) = LN(tan(n/4+ x/2)) 
sech= (x) = gd” '(arccos(x)) 


où arcsin=sin”!, arccos = cos”! et arctg=tan ! 


Mon programme, classique, occupe 90 pas mais aucun registre de mémoire. 
J'ai nommé chaque sous-programme (dans l’ordre du tableau) CH, SH, TH, 
ACH, ASH, ATH, GD, SE, AGD et ASE. L’argument x est dans X avant 
l’appel et en Last x au retour du calcul. Le résultat se trouve évidemment en X. 


Alain GOUBAULT de BRUGIÈRE 
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RS NT NS 


Triangle de Pascal 
Programme pour HP-41C 


Auteur Jean Thiberge 
copyright LIST et l’auteur 


Ai+LBL "THI 


&2 SIGH 
65 LASTH 
E4 5 
GS+LEL #1 
Hé RTH 

Gr AETY 


STO IH 


STO IH 


ISG 
11 KEY 


FT 


12 KEY 
13 STX 
14 ET 

15 DSE % 
16 ST 7 
17 K<=Y? 
18 GTO fi 
13 END 


développement de (a+ b)}" en fonction 
den:  p-=n 
(a+b}= > CF «+ aPbrP 
p=0 on 
où Ci=n!/(p!{(n-p)!) 

Le coefficient numérique est donné 
par C? et, pour notre tableau, n corres- 
pond au numéro de la ligne et p à celui 
de la colonne. Ainsi, le tout premier 1 
correspond bien à C, car 0! vaut 1. De 
même, pour toute la première colonne, 

p=0 et donc Cf=n!/n! 

Le défi lancé par Monti dans LIST 
n° $ était donc : sachant le numéro n 
d’une ligne quelconque du tableau de 
Pascal, trouver la suite des chiffres qui 
la compose. Par exemple, n=5, trou- 
ver 1, $, 10, 10, 5. La solution réside, 
bien sûr, dans l’examen attentif du 
développement de (a+b}". Par com- 
modité, on stocke dans les mémoires 
R0O à Ran les nn + 1 chiffres de la ligne 
à trouver. Faites vite et court. 

Et c’est à Jean Thiberge — grand 
connaisseur de la HP-41 C — que nous 
devons la version gagnante de ce pro- 
gramme de calcul des coefficients du 
tableau de Pascal. Il en décortique lui- 
même les rouages. 


Jean-Christophe KRUST 
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- UTILITAIRE TRS-80 I et IN | b 


ménage 


utilitaire de classement, I1 délivre 


$ ANS doute vous est-il arrivé, à vous aussi, de M!" DIR/BAS est un 


rechercher un programme ou un fichier A sa sn ol a LE | 
: , UE , ichiers enregistrés sur une, deux, dix, | 
soigneusement mis de côté sur une disquette. cent disquettes. Le programme inscrit | 


aussi, en regard du nom de chaque 


La question est de savoir sur quelle disquette. Alors fichier, les noms (également triés) de | 
, . toutes les disquettes contenant ce 
on les passe toutes en revue. Quand il est si simple nier. Si te fichier TOTO/BAS à été | 


de demander à l'ordinateur où se trouve quoi... en EUX a DIVERS 


, ” e LARTU LP J. : 
Faisons le ménage dans nos disquettes, ONE LR 
quera par écrit. 

Le nom d’une disquette est tout sim- 
plement celui qu’aux fins d’identifica- 
tion, vous avez écrit avec un crayon- 
feutre sur son étiquette. 


L'imprimante 


est indispensable 


Après avoir entré ce nom et le numéro 
du lecteur de disque utilisé, le répertoire l 
(DIR simple) est affiché sur l'écran où 
il est lu par le programme qui range 
dans un tableau F$ (500) les noms des 
fichiers suivis du nom de la disquette. 

Dès que vous répondez « N » à la 
demande de lecture d’une autre dis- 
quette, le tableau est trié et l’on passe 
aux éditions sur imprimante. Vous avez 
alors le choix entre une liste complète 
(il faut alors répondre ‘‘*°? à la question 
“LETTRE ?”) ou une liste sélective des 
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seuls fichiers dont le nom commence par 
la lettre indiquée. 

Ce petit programme, bien utile pour 
ne pas laisser la pagaille s’installer parmi 
nos disquettes, n’est malheureusement 
pas accepté par tous les Systèmes d’Ex- 
ploitation des Disquettes (SED, ou DOS 
en anglais). Il tourne sans problème 


Un répertoire des répertoires 
Programme pour TRS-80 I et HE. 
Auteur Roger Brousmiche rit 
Copyright LIST et l’auteur 


DIR/EAS — (CC) 1985, 
Configuration : Ci 
Modele Z, disaus : 
Modele 1, disque ; 


dd 4 + s 


mOURATEe 


CLERR 100B0 : 
STRINGS 
DE=126 : 


CE, 22) 
DB=15 


7@ INPUT 
LECTURE DU REPERTOIRE D’ 
BG IF LEFTSCRS, 1) () “O" 
3@ INPUT 
188 LINE INPUT 


110 CMD DR$+UDS : PRINT 


120 FOR I1=152E0+DE TO 16287 : 
120 IF P)127 THEN I=16%EZ : 


140 IF P=25Z 


180 IF P)3X THEN L=L+1 


sous NEWDOS 80 Version 2 (modèle 1 
ou 3) qui reconnaît la commande basi- 
que CMD ‘DIR, 1’ pour afficher à 
l’écran le répertoire de la disquette se 
trouvant dans l’unité 1. 

Il sera également accepté sous 
TRSDOS 1.3 (modèle 3) ou son frère 
cadet, le TRSDOS 2.7 DD (modèle 1, 
double densité) après que les lignes 40 
et 50 aient été modifiées comme suit : 
40 DB = 15 
50 DR$ = ‘D :” 


La variable DB contient la position 


LIST et Roger 
mprimante 
TRSDOS 1.7 
TRSDOS 


obligatoire) 
Qu NEWDDOS80 
Z. 7DD ou NEWDOSE0 


initialisations 
DEFINT A-7 


DIM F$(500) 
! sous TRSDOS 1.3 
! Su TRSDOS %. 7DD 


UNE DISGUETTE CO/N) "35R$ 


THEN 190 
"SE TROUVANT SUR L'UNITE DISQUE # “:UDS 
"VEUILLEZ ENTRER SON NOM : 


"NDS 
STRINGS (CEBZ, 1751) 
P=PEEKCI) 

GOTO 178 


THEN 174 :ELSE L=@ 


5 MIDSCKS, L, 1)=CHRSCPI 2: 


K$: L3+ STRINGS 


imprimante 


ICHIERS SUR L' IMPRIMANTE 


13 : G0OTO 150 

160 J=J+1 : FSCJ)=LEFTSC 
170 NEXT I : GOTO 70 

LEZ tri 

190 PRINT : IF J{i THEN END 
“00 CMD "“D",J,F$€1) 

ED edition 

£ZB PRINT "EDITION DES F 
ENTREZ ’#? 


OÙ UNE LETTRE DE ‘A’ 
OÙ <HREAK) 


A 7 


POUR LE LISTING COMPLET, 


POUR UN LISTING SELECTIFÉ 
POUR QUITTER LE PROGRAMME. " 


77? 


27Q INPUT "LETTRE "3LTS : LTS=LEFTSCLTS, 1) 
240 FOR I=1i TO J 2: IF LT$="æ" THEN 270 

ZSO IF LEFT$(CF$CI),1) (LTS THEN 00 

Z6O IF LEFTSCFSCI3,1)2LTS THEN I=J : GOTD =00 
270 LPRINT F$CI): 

Z80 


SCFSCII, 1795 
290 LPRINT 
200 NEXT I : 


GOTO 760 


GOTO 270 
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IF LEFTSCFSCID, 12) =LEFTSCFSCI+ 19129 THEN Isf+#i 


BROUSMICHE 


Ê13-Lr ZE +NDS 


du premier caractère utile du DIR à l’af- 
fichage, et DR$ est l'orthographe de la 
commande affichant le répertoire. 


Le CMD “O””, J, F$ (1) de la ligne 
200 assure le tri rapide des J premiers 
éléments de F$ ( à partir de F$ (1). 
Cette dernière instruction est acceptée 
par tous les SED déjà cités. Le bon 
vieux TRSDOS 2.3 n’accepte, quant à 
lui, aucune de ces instructions. Pour 
les autres DOS, veuillez consulter la 
notice. 
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OPTIMISATION SUR X-07 


TROIS MINIATURES 


OUT programmeur a une manière bien à lui, un 


coup: de patte, La recherche d'une extrême 


LL 


concision est le trait caractéristique a À 
d'un style très difficile à pratiquer. A 
Pour beaucoup de gens, c'est même le grand art. Les deux premiers peuvent être rap- 

prochés de façon instructive des pro- 4 


Messieurs les Jurés, 


Le gang des Jivaros, auquel l’accusé a donné son nom, est responsable 
de multiples méfaits tellement abominables que le Parquet a failli deman- 
der le huis clos pour juger cette affaire. 


Les pièces à conviction que vous avez aujourd’hui sous les yeux con- 
cernent deux programmes classiques qui s’étalaient hier encore innocem- 
ment sur 70 à 80 lignes chacun. 


Leurs restes décharnés, meurtris jusqu’au cœur des algorithmes, sont 
devant vous, méconnaissables, réduits à rien : 3 lignes pour l’un et 2 pour 
l’autre. Et même pas structurées, quelle déchéance ! Mais le plus atroce 
est que ces malheureux mutilés sont encore Vivants, ils « tournent même 
sans problème », comme l’avouent dans leur jargon ces bourreaux du 
Basic. 


— Que dites-vous, Monsieur le Président ? Il y a une troisième pièce à 
conviction ? Un programme piqué dans LIST 5 page 72, et ramené sour- 
noisement de 27 lignes à combien ? Deux seulement ? 


— Plus rien n’est donc sacré pour cet énergumène ! 


— Votre verdict, Messieurs les Jurés, sera sans pitié comme sans illusion. 
Même condamné au maximum, cet incorrigible récidiviste trouvera tou- 
jours un truc pour réduire sa propre peine à trois fois rien. 


CG: 


— Superbe, le réquisitoire du procureur. Comment diable as-tu fait pour 
t’en sortir ? 


— Oh, tu sais, la force de l’habitude : je me suis fait tout petit. 
Dr JIVARO 


Auteur Pierre Barnouin 
Copyright LIST et l’auteur 


Trois concentrés 
Adaptation pou 


Interpolation 


2 INPUT'Pour x=";X:FOR!I=1TON: 


1 INPUTENb pts connus" ;N:DIMXEN), 
RI=1TON:PRINTI 5x, v":INPUTXCI D 


grammes de Loto et d’Interpolation du 
manuel de Jeux et programmes pour 
Canon X-07, et le troisième de celui que 
LIST vient de publier sous la même 
dénomination : « donnée manquante ». 


Le programme de Loto tire des bou- 

les jusqu’à ce qu’on appuie sur une tou- 
che, ou jusqu’à épuisement des 49 
boules. 
A noter : la manière simple et efficace 
d'interdire toute répétition d’une même 
boule, et la réinitialisation aléatoire 
automatique de la séquence RND. 


Avec le deuxième programme, le 
X-07 demande le nombre de points 
connus, puis leurs coordonnées. I] cal- 
cule ensuite les ordonnées correspon- 
dant aux abscisses de votre choix par la 
méthode du polynôme d’interpolation 
de Lagrange. 


A noter : l’utilisation d’une double bou- 
cle (1,J) exige l'élimination des cas 

= J, qui comporteraient une division 
par 0. 


Enfin, avec Donnée manquante, on 
tape directement RETURN si le pro- 
gramme demande la valeur de l'incon- 
nue. Les solutions de ce genre paraissent 
évidentes... dès qu’on les a sous les 
yeux. ' 


A noter : en changeant les noms 
de grandeurs et les formules, ce 


TEND:FC programme peut s'adapter à 


» YLID:NEXT fout ensemble de trois grandeurs 
à es J 


dont chacune peut être calculée 


nt nn den. D _ De. OS, = 1 = OO D 


r O7 


. 


= C 
=ITON:IFI-JTHEN2=2XCX-XC / XCD) a : RER : 
A ee ne te a Y-0e SÔrO2 à partir des deux autres. Toute- 
Déunée dédaianlé fois les grandeurs connues ne 
Loto 1 INPUTDISTANCE" D: INPUT HEURES" :T:pen PEUVENT être nulles. 
1 DIMAC4SD:FORI=1T049 :AC1D=I INEXT T'UITESSE" ; 2 IFDXTTHENPRINTO/T :END 
2 J=i+1:K=J+CSB-J)KRNDCI-1 :PRINTACK);:A 2 INPLTU:EFDTHENPRINT'HEURES ;D/U:ELSEPR 
CKI=ACJD :IFINKEYS=" THENZ INT'DISTANCE " ;UXT Pierre BARNOUIN 
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SOIR 9 


RE 


LA BOÎTE 
A MALICES... 


RENEZ un programme et ôtez-en très 
soigneusement toutes les astuces, des plus 


élémentaires aux plus subtiles, Vous êtes certain 


de n’en avoir laissé passer aucune ? Bien, Que 
reste-t-il ? Rien, ou peut-être une bogue ou deux 
(tout le monde peut se tromper). En fait, tout 


programme n’est qu'une suite d'astuces, Dans les … 


pages qui suivent, vous en trouverez un grand 
nombre, Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier. Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boîte à 


malices. Même s’il ne s'agit pas de votre machine, 
yous trouverez souvent des idées à reprendre. Par 


“2: gramme suffisent pour éliminer ce 
27 phénomène gênant. Dès que l’on 
:: approche le crayon de l’écran, le pro- 
22: gramme fait apparaître un curseur cli- 
:: gnotant indiquant en permanence l’en- 
::: droit visé par le crayon. Il suffit donc 
:. de diriger le curseur sur l’endroit 
2: désiré, puis d’appuyer sur le crayon 


ailleurs, vous avez sans doute vos propres 
recettes, vos façons de faire. Si ce ne sont pas 
des secrets que vous cherchez à conserver 


jalousement, faites-en part au journal. Celles qui 
nous paraïtront les plus intéressantes enrichiront 


::1: placé à son extrémité. Après avoir écrit 


a leur tour la boîte à malices, Tous les lecteurs 
pourront ainsi en profiter, 


N° 7- MARS 85 


_ TO7ETT07-70 


AFFÛTEZ VOTRE 


| CRAYON OPTIQUE 


Quand on se sert du crayon opti- 
que pour désigner une zone de 


: l'écran (dans le cas d’un menu ou d’un 
. signe quelconque à sélectionner), il 
:: arrive fréquemment, si la zone est 
:: petite ou étroite, que l'indication 
: transmise par le crayon tombe à côté 


de la zone recherchée. 
Cette imprécision est due pour une 


:: part au système même, d’autre part au 
::: fait que, pour obtenir un fonctionne- 


ment correct, on doit tenir le crayon 


::: toujours dans le même sens et surtout 
::: bien perpendiculairement à l’écran, ce 
242 qui n’est pas toujours commode. 


Si VOUS ÊTES TROP FEIGNANTS 
POUR PROGRAMMER CES QX 

LIGNES, FAITES COMME MOI, UTiLiSEZ. 
UN  TAÏLE -CRAYON OPTIQUE ! 


CAP&S 


Sur TO7, quelques lignes de pro- 


pour actionner le petit interrupteur 


1 ce sous-programme, en 63000 par 
1: exemple, remplacez donc vos 
::: € INPUTPEN CL » par un GOSUB 
:: 63000 et vous ne rencontrerez prati- 


LIST 


quement plus jamais d’erreur de visée. 
Pour changer la couleur du curseur, 
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on modifiera le POKE de la ligne ::: 
63050 en remplaçant le 09 par le chif- 


fre qui convient. 
Si l’ordinateur n’est pas un TO7 


première manière, mais un TO7-70,on :::: 


peut améliorer le programme. En 


effet, la précision du crayon optique :.:: 


est supérieure sur ce type d’appareil : 


elle permet la détection de chaque Hit 
point alors que le TO7 en est resté à 


l’octet. 


Pour affûter le crayon optique 
Programmes pour TO7 et TO7-70 . 
Auteur Paul Gardan mt 
Copyright LIST et l’auteur 1:17 


Version pour TO7 


63000 CURSEUR POUR CRAYON 
OPTIQUE TO7 

63001 AUTEUR Paul GARDAN 

63005 INPENC, L 

63010 IF C<0 OR L <0 THEN 63000 

63020 ZZ=16384 + C/8 + Lx40 

63030 POKE &HE7C3, PEEK 
(&HE7C3) AND &HFE 

63040 ZZ0= PEEK (Z2) 

63050 POKE ZZ,09 

63060 FOR W =1 TO 60:NEXT 

63080 POKE Z7,ZZ0 

63100 IF PTRIG =0 THEN 63000 
ELSE RETURN 


Version pour T07-70 


63200 'CURSEUR POUR CRAYON 
OPTIQUE TO7-70 

63210 *AUTEUR Paul GARDAN 

63220 INPEN C1, LI 

63230 IF C1 <0 OR LI <0 THEN 
63220 

63240 ZZ = 16384 + C1/8 + L1x40 

63250 POKE &HE7C3, PEEK 
(&HE7C3) AND &HFE 

63260 ZZ0 = PEEK (ZZ) 

63270 POKE &HE7C3, PEEK 
(&HE7C3) OR &HO1 

63280 ZZ1 =PEEK (ZZ) 

63290 PSET (C1, L1), 5 

63300 FOR W=1 TO 20:NEXT 

63310 POKE &HE7C3, PEEK 
(&HE7C3) OR &HO1 

63320 POKE ZZ,ZZ1 

63330 POKE &HE7C3, PEEK 
(&HE7C3) AND &HFE 

63340 POKE Z7,ZZ0 

63350 IF PTRIG =0 THEN 63220 
ELSE RETURN 


Sur TO7-70, le curseur obtenu est en 
magenta. Si l’on préfère une autre teinte, 
il faut modifier le PSET de la ligne 63290. 


i 


Le programme pour TO7-70 fait 


donc apparaître un point clignotant (à 


la place du curseur de huit points sur 
TO7) et il autorise de ce fait un poin- 
tage plus rigoureux. 
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A RUBAN, RUBAN ET DEMI... 


Si vous utilisez une imprimante 
à aiguilles et si vous aimez que 


: vos documents soient bien lisibles, 
:.: écrits noir sur blanc, alors vous n’avez 
: pas manqué de constater que le coût 


des rubans d’impression n’est pas du 


::} tout négligeable. 


La prolongation du temps de service 


:::. de ces rubans, qu’ils soient condition- 


nés en bobines ou en cartouches, pour- 


::: rait épargner les tirelires. Quelques 
:: astuces simples peuvent vous faire 
::: faire bien des économies. 


Première possibilité : le ruban n’est 


:::2: souvent utilisé par la tête d'impression 
::7 que sur une partie de sa largeur, et 
“7: rarement sur la zone centrale. La piste 
::::1 encrée finit donc par s’épuiser sur la 
::. zone utilisée tout en restant quasiment 
:!: neuve sur la zone inemployée par la 
:: tête. Dans ce cas, un simple retourne- 
7 ment du ruban doublera sa durée de 
::: vie. Si le ruban est en bobine, cette 
::7: opération ne posera aucun problème. 
‘2: S'il est en cartouche, il suffira pour le 
::: retourner de le plier et de lui faire par- 
::22 courir manuellement dans son boîtier 
:::°: un tour complet jusqu’à réapparition 
::: du pli d’inversion. 


Autre possibilité : après avoir été 


î ::: retourné, le ruban qui vient ainsi de 
:.: doubler sa période de service est-il bon 
:: pour la réforme ? Sans doute pas, si 


toutefois vous acceptez de perdre la 


:: garantie de votre matériel et de pren- 
:::::: dre quelques risques pour votre tête 
:::: d'impression (les encres sont tout de 
22: même des produits chimiques). Faites 
:::1 l'achat chez votre papetier favori d’un 
:::° flacon d’encre à tampon de la couleur 


requise. Déroulez votre ruban, 


:! humectez-le de quelques gouttes de 
:.; cette encre (attention : ça tache !) puis 
::7 laissez-le s’en imprégner. 


Quand l'opération sera terminée, 
vous aurez en main un ruban neuf, 


:::2 prêt à de nombreuses semaines de bons 
‘1 et loyaux services. Si le ruban est en 
:: cartouche, on devra ouvrir le boîtier 
:! avec précaution pour humecter le 
::.: ruban. Si la cartouche est scellée, on 
‘12°: sortira le ruban en tirant sur sa partie 
::1 visible et l’on procédera comme avec 
:::2: une bobine. 

Paul GARDAN 


Si votre matériel s’y prête, n’oubliez 


pas de réutiliser le truc n° | (renver- 
sement du ruban) lorsque le vieillisse- 
ment se fera à nouveau sentir. Résul- 
tat : durée de vie d’un ruban 
quadruplée. 


Enfin, une autre opération (salis- 
sante elle aussi, mais rentable) consiste 
à utiliser un dispersant (tel celui 
employé dans les photocopieuses à 
encre liquide) pour réhumecter le 
ruban. Veillez bien dans ce cas à ne pas 
trop lé mouiller, et vérifiez la compa- 
tibilité entre le ruban et le dispersant 
dont vous disposez. 


Cette dernière solution est légère- 
ment moins bonne que la précédente 
pour diverses raisons. D’abord, elle 
consiste seulement à répartir à nou- 
veau sur la surface du ruban des pig- 
ments colorés qui s’y trouvent encore, 
sans en ajouter. Ensuite, selon la 
nature du dispersant utilisé, il est pos- 
sible que le ruban prenne un aspect 
gras, avec risque d’encrassement de la 
tête d’impression. Bien que l'efficacité 
de cette méthode né soit pas garantie, 
la durée de vie du ruban a de bonnes 
chances de s’en trouver augmentée. 


Et puis, on fait avec ce que l’on a, 
n'est-ce pas ? 


Robin BOIS 
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LS LS | 


OSEO ! 


BASIC 


FAUSSE MÉMOIRE D'ÉCRAN 


RE Il était une fois de petits ordina- 

teurs pas chers du tout, simples 
à utiliser, et qui n’avaient pas beau- 
coup de mémoire. Et les petits infor- 
maticiens amateurs qui voulaient s’en 
servir pour faire de grands et beaux 
programmes avaient recours à toutes 
sortes d’astuces. 


En particulier, ils avaient constaté 
qu’il était possible de se servir de 
Pécran comme d’une mémoire supplé- 
mentaire, puisque celui-ci retenait 
effectivement les informations qu’il 
affichait. Et ils bâtirent des superpro- 
grammes, l’un jouant aux dames, l’au- 
tre pratiquant les envahisseurs, un 
autre encore traitant ses textes, à 
grands coups de PEEK et de POKE 
dans la partie de la mémoire vive con- 
sacrée à l’écran. Puis les informati- 
ciens en herbe ont grandi, les mémoi- 
res et les capacités de leurs appareils 
aussi d’ailleurs, et les gentils fabri- 
cants, pour ne pas les priver de leurs 
chères bonnes vieilles habitudes, leur 
ont offert des outils commodes pour 
examiner directement le contenu d’une 
case, ou l’état d’un point de l’écran. 
Et chacun de proposer son mot : 
POINT, SCREEN, SCREENS, etc. 
Tout le monde était heureux et faisait 
de beaux programmes, avec de jolis 
écrans examinés sous toutes les 
coutures. 


Et puis, et puis... Les temps ont 
changé. Les prix ont encore baissé, les 
ingénieurs sont devenus plus malins, 
et ils n’ont pas voulu que les pauvres 
petits programmeurs puissent confon- 
dre leur mémoire de programme et 
leur mémoire d'écran, au risque de 
spectaculaires téléscopages. Ils ont 
créé des circuits spécialisés, chargés de 
gérer l’écran à leur façon, avec leur 
mémoire personnelle. Plus question de 
PEEK et de POKE dans cette 
mémoire. Certes, quelques-uns ont 
gentiment prévu des VPOKE et 
VPEEK, mais la plupart ont verrouillé 
l’accès : non, on ne regarde pas, c’est 
seulement pour faire voir, pas pour 
voir. Et, non content de cela, par quel- 
que mesquinerie incompréhensible, ils 
ont même été jusqu’à supprimer le 
SCREEN de la liste des instructions. 
D'accord, il est encore possible de 
savoir quelle est la couleur d’un pixel. 
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Mais plus de connaître la lettre qui est 
affichée en ligne 12, colonne 15. 


Et voilà certains des nouveaux pro- 
grammeurs en herbe bien malheureux. 
Oh certes, quand on conçoit le pro- 
gramme soi-même, on peut toujours 
s’en tirer, par une astuce ou une autre. 
Mais si, par exemple, on veut adapter 
un programme qui ne se lasse pas 
d’utiliser des SCREEN pour examiner 
les caractères présents sur l’écran, on 
est perdu. 


Une astuce existe. Elle est simple à 
utiliser, même si elle manque un peu 
d'élégance. Il s'agit de jouer sur le fait 
que les appareils actuels ont en géné- 
ral à leur disposition des mémoires 
suffisamment impressionnantes pour 
en détourner une toute petite partie qui 
simulera la mémoire d’écran. Les tex- 
tes affichés sur l’écran seront intro- 
duits lettre par lettre dans cette 
mémoire, en respectant les contrain- 
tes imposées par le programme initial. 
Si le programme de départ utilise une 
instruction SCROLL (déroulement de 
l'écran), une adaptation sera néces- 
saire : par exemple, modifier l’adresse 
de départ choisie pour la fausse 
mémoire d’écran. 


Prenons, par exemple, un appareil 
qui dispose pour l'affichage de 25 
lignes de 40 caractères, soit 1000 posi- 
tions mémoire, avec des adresses allant 
de 32000 à 32999 pour la mémoire 
d’écran. On choisira donc un empla- 
cement mémoire disponible de 1000 
octets, le même si c’est possible, ou 
pour prendre un exemple, de 42000 à 
42999, 


Toutes les instructions de type 
LOCATE 2,5: PRINT ‘xxx ‘” 
seront doublées par un renvoi dans un 
sous-programme gérant cette partie de 
la mémoire. Trois paramètres devront 
être passés à ce sous-programme : LI 
pour le numéro de la ligne, CO pour 
la colonne, et TES pour le texte à affi- 
cher concrètement, supposons une 
ligne 
50 LOCATE 12,15 : PRINT ‘‘ BON 
JOUR 
On la remplacera par 
50 LOCATE 12,15 : PRINT ‘‘ BON 
JOUR ‘’: LIi=12: CO=15: 
TE$ =‘ BONJOUR ‘’ : GOSUB 


9000 (si le sous-programme est 
implanté en 9000). 


Bien entendu, LOCATE n’étant pas 
présente dans tous les Basic, elle sera 
éventuellement remplacée par l’ins- 
truction disponible qui lui correspond. 


Le sous-programme en 9000 pourra 
se présenter de la façon suivante : 
9000 REM INSCRIPTION EN MEM 

D'ECRAN 
9010 FOR I1=1 TO LEN(TES) 
9020 POKE 42000 + 40 x LI + CO + 
IT —1,ASC(MIDS$(TES,II,1)) 
9030 NEXT I] 
9040 RETURN 


ET oui, eau Caupe 


MPETTE, PéE K et 
POKE VENNENT D° 
ÊTRE INCULPÉS DE | 
FABRICATION ‘DE 
FAUSSE MÉMOIRE … 


L'intérêt du procédé est de permet- 
tre une adaptation sans trop de modli- 
fications par rapport au programme 
initial. Supposons maintenant que le 
programme initial lise le code ASCII 
du caractère présent en ligne 12 et en 
colonne 18 : 

120 C=SCREEN (12,18) 

La ligne 120 sera tout simplement rem- 
placée par un appel du sous- 
programme de lecture, avec passage 
des paramètres ligne et colonne : 
120 LI=12 : CO=18 : GOSUB 9050 
et le sous-programme de lecture, débu- 
tant en 9050, pourrait être : 

9050 REM LECTURE D'ECRAN 
9060 C = PEEK(42000 + 40 x LI + CO) 
9070 RETURN 

La variable C est restituée en retour de 
sous-programme. 


Un SCROLL sera éventuellement 
simulé en définissant une variable de 
début de mémoire d’écran, 
ME = 42000, et en ajoutant derrière 
lPinstruction SCROLL une instruction 
du type : ME =ME +40, 

Toutes ces indications devraient 
faciliter l'adaptation de certains pro- 
grammes sur des appareils récents. 


Jacques DECONCHAT 
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APPLICATION SYNTHÉTIQUE 


Réaliser un programme plus 

court et, a priori, plus inutile 
que celui-ci est rigoureusement impos- 
sible. Pourtant, si la manipulation 
proposée n’a guère de sens pratique, 
en revanche, les questions qu’elle pose 
quant à la santé mentale de notre 
bonne vieille HP-41 ne sont pas sans 
intérêt. 

La seule instruction synthétique du 
programme est STO d. On la créera 
facilement, directement (codes 145 
126) ou grâce au clavier synthétique 
(LIST n°6) dont chacun doit 
aujourd’hui goûter les avantages. 


Le programme, donc, si trois ins- 
tructions peuvent être ainsi nommées, 
est reproduit ci-contre. La constante 
PI est simplement stockée dans le 
registre d’état « d ». Ce dernier con- 
tenant, bit par bit, l’état de chacun des 
56 flags (ou drapeaux) de la HP-41. 
Ainsi, chaque indicateur binaire voit- 
il son état modifié en fonction de la 
valeur PI introduite avec STO d. 


A l’exécution du programme PI, 
rien ne semble se passer d’extraordi- 


 PEUT-ÊTRE ON PETIT 


C7 TRANQOILLISANT... 
(ee 


naire, seul l'indicateur USER s’allume 
et le format d’affichage change pour 
passer en ENG 4. 


Mais, si l’on presse la touche R/S, 
se produit à l’affichage un défilé pour 
le moins surprenant de caractères spé- 
ciaux, de fonctions synthétiques ou 
classiques. Si l'imprimante est connec- 
tée, on obtient une liste de ces petits 
monstres alphabétiques (en minuscu- 
les non expansées) reproduite ici à la 
suite du programme. 


LIST - PAGE 72 


Le programme 
Hi+iEL = 
AZ FI re 
GZz STG d Bis 
4 . EN. AH 
+ 


MPT 
“. FI . Le 


+ a 
HH 
Le catalogue égez 
5 DLacr: 
cE HPT 
CICR SRE AC RS 
ST 
Æ 
RE 
FXRECL 
DLacx 
14 
F 
IE 
F 
EL 
OF% 
BSCF 
ij 


“JE O 
TZ 
LUN] 


Le) 
nr 
on] 
n 
# 


EU ® 
M ia 


# | 4 
Cri D 


L 

15 

LF 

il 
HCLEG 
Hiacs 
a+ 


De QE LMI COT 


bi 
GEST 
LE 


En fait, il s’agit là d’un catalogue 
de fonctions : on peut le ralentir en 
pressant une touche quelconque, le 
stopper avec R/S, remonter ou descen- 
dre la liste avec BST et SST et, enfin, 
en sortir avec R/S suivi de +. 


Mieux, en interrompant dès le début 
le défilement du catalogue, on n’en 
pourra pas moins remonter avec BST 
avant même ce début et découvrir des 
« instructions » comme <=07? ou 


LGEI+-WE 


x 


CACICE SEA 
1 
LF 


LES 
ACLRG 
16 

[al 

CT 
HCLRG 
RAé=E T7 
Hs 
HCLRG 
53 

H=T 
CF 

[CICR ETES ES CES 
J 


Di acx 
HPT 

1a 

MPT 
TERT 
MPT 

14 

a<t 

Cr 

de 
eGABEEr 
D£2-ET+HvlHo 
ur 


encore @ —a À GBIW>... Eton- 


nant, non ? 


Et si vous parveniez à trouver tout 
de même, sinon une application pra- 
tique, du moins une explication à ce 
phénomène, pensez à ceux, nombreux, 
aux prises avec les affres de la 
perplexité. 


Adrien MEAUDRE 
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ILITAIRE TI-57 


UNE VRAIE MACHINE DE BASE 


Si vous êtes en possession d’un 

véritable ordinateur depuis peu 
de temps, la tentation est sans doute 
forte de laisser tomber complètement 
la petite programmable de vos débuts. 
Résistez ! Non seulement elle peut 
vous être très utile pour faire des cal- 
culs auxiliaires pendant la mise au 
point de vos programmes, mais vous 
pourrez aussi lui confier une applica- 
tion vraiment indispensable pour les 
programmeurs : le changement de 
base. 


Le programme est écrit dans une 
version volontairement très courte (37 
pas, mais on pourrait encore optimi- 
ser). Il permettra de passer directement 
d’une base de départ a quelconque à 
une autre base d’arrivée b également 
quelconque, et ceci sans limitations 
sérieuses concernant la longueur des 
nombres introduits. L’adaptation 
pour la T1-57 version LCD sera très 
facile à réaliser (modifications 
minimes). 

Pour utiliser le programme. 

e entrer la base de départ en Mi ; 
exemple 16 STO 1 

e_entrer la base d’arrivée en M2 ; 
exemple 8 STO 2 

e taper RST, puis entrer le premier 
chiffre du nombre donné en base a, en 
commençant par la droite ; presser sur 
R/S et introduire le chiffre suivant, 
etc. 


Pour EF78A donné en base 16, on 
entrera 10 R/S 8 R/S 7 R/S 15 R/S 


D'une base à l’autre 

Programme pour TI-57 
Auteur Jacques Deconchat 
Copyright LIST et l’auteur 


Code 


t 


19 
325 


Instruction Re 
2nd Ct # 
STO 5 RHEN 
GTO 2 | 
2nd Lb1 3 fi 
x 
RCL 1 
VE : 
RCL 7 i 
2nd Int à 
SUM 5 5 
2nd Lbl 2 FE 
! 
SUM 7 
CLR 
R/S 
GTO 3 
2nd Lbi i ‘ 
2nd Ct 
RCL 5 : 
RCL 2 
2nd Int 
STO 0 qu 
X * 
RCL 2 
Inv SUM 5 
RCL 5 Sistet 
2nd Pause Ë 
2nd Pause . 
RCL 0 ; 
STO 5 J 
2nd Inv x=t ; 


14 R/S, puis on obtiendra le résultat 
en base b en tapant SBRI1. Les chif- 
fres seront affichés en commençant 
par la droite, et séparés par une pause 
mais on peut très bien intercaler un 
R/S entre deux affichages, au pas 31. 
La fin de l’affichage est signalée par 
Papparition de O 00. Ici, EF78A 
(base 16) donne 3573606 en base 8. 


11110000000 780, 
111111000000 FCO,, 
10010000000 480 


etc. 


= Définition d'un lutin 16 x 16 


Ce programme servira, entre autres, 
à définir de nouveaux ‘‘sprites”” sur 
des pavés 8x8 ou 16x16. C’est un 
exemple type de passage de base 2 en 
base 16 avec des nombres trop longs 
pour l’affichage d’une calculatrice. 


Jacques DECONCHAT 


TEXTE EN 
16 COULEURS 


La page texte (MODE 0) du Dai 

permet d'écrire en deux jeux de 
deux couleurs. Habituellement, seul le 
premier jeu est utilisé. Il correspond 
aux deux premières valeurs de la com- 
mande Basic COLORT CI C2 C3 C4, 
où CI C2 C3 C4 codent les numéros 
de couleurs désirées. Pour se servir du 
second jeu (C3 C4), c’est déjà plus 
compliqué : il faut « POKEr » dans la 
mémoire d’écran les octets de couleur 
de chaque lettre, lesquels se situent 
trois octets plus bas que l’octet codant 
la lettre. Si l’octet de couleur contient 
0, c’est le premier jeu de couleur qui 
est sélectionné ; s’il contient 255, c’est 
le second jeu qui entre en service. Pas 
simple, n'est-ce pas ? De là à dire que 
passer en 16 couleurs d’écriture 
devient « chinois », il n’y a qu’un 
pas. que nous ne franchirons pas. En 
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Texte en 16 couleurs 
Programme pour Dai 
Auteur Alain Mariatte EE 
Copyright LIST et l’auteur 


19 REM 
206 REM 
36 REM 46260625 De EME DE DE EME MEME DEEE DÉ HD DE DE DE DE DÉHE DEEE DEEE DE DE DE DEEE 
40 REM %#%#% 5/P ié6 COULEURS CARACTERES. LIGNES LES LS 
50 REM ### ADRESSEES PAR LA FN CURSOR(X,Y) LES TS 
68 REM #x%% SANS CALCULS COMPLIQUES ! HE 
70 REM WHEN EME DEEE DEN DE DE DE DE DE DEN DE DE DE HD DD DH ED DEEE DEEE 
89 REM 
96 REM 


100 MODE G:PRINT CHR#(12):CF-0: COLORT CF 16 CF CF 


116 PRINT :PRINT 


12@ INPUT "LIGNE TEXTE À ECRIRE: ";AS$:PRINT 


130 INPUT "CURSOR 
140 REM 


{X,Y):"35X,YS: PRINT :CURSOR X,Y:GOSUB 1000 


150 REM MODE i6 COULEURS (de CA à FA selon la taille) 


168 POKE CB,#FA 


170 REM 

180 PRINT A$ 

19@ REM 

208 REM ON CHOISIT DES COULEURS ALEATOIRES 


REM DETERMINER L ADRESSE DU CONTROL BYTE & D: CURSEUR 


210 FOR 1I=1 TO LEN(A$) 

220 POKE AC-5, (RND{16) SHL 4)+CF 
230 AC=AC-2 

240 NEXT 

2568 REM 

268 GOTO 1008 

270 REM 

288 

290 REM 

3098 CB=PEEK (#79) #256+PEEK (#78) 
310 AC=PEEK (#73) #256+PEEK (#72) 
326 RETURN 


rend fous les caméléons !!! 


fait, c’est très simple, à condition de 
faire preuve d astuce, et la Boîte à 
malices est ta te pour cela, n’est-ce 
pas ? 

Pendant que nous y sommes, quitte 
à tripoter des octets, nous alions ajou- 
ter le moyen de faire varier la taille des 
lettres. Cela ne sera guère plus com- 
pliqué, car la routine proposée ici va 
se charger de tout le travail : l’utilisa- 
teur n’a qu’à spécifier ce qu’il veut 
écrire (dans la chaîne AS), où il veut 
l'écrire (commance CURSOR X, Ÿ). 
C’est tout ! Pour la taille des lettres, 
la ligne 160 effectue un POKE qui 
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choisit simultanément (c’est économi- 
que !} le mode texte 16 couleurs et la 
taille des lettres. Les valeurs # CA, 
# DA, # EA, # FA donnert le choix 
entre quatre tailles (# FA est la plus 
petite). : 


Un peu de gaieté 
dans vos textes 


Le mystère réside dans 1°; lignes 280 
à 320. Ce sous-programrae se charge 
de déterminer les adresses ennuyeuses 
à trouver ‘: celle du CONTROL BYTE 
(CB), et celle de la position courante 
du curseur (AC). Dès lors, le POKE 
de la ligne 160 ajuste la ligne d’écri- 
ture au mode désiré, et la boucle des 
lignes 200-240 allume des couleurs 
aléatoires (une parmi 16) pour chaque 
lettre de la chaîne A$, imprimée en 
ligne 180. Cormme le programme se 
charge de tout, vous pourrez même 
oublier ces explications, et continuer 
à avoir des textes raulticolores tant que 
vous le voulez. C’est tout de r ême 
plus gai ! 


Alain MARIATTE 


= UNE OPÉRATION 


DÉLICATE 


Quand on le pousse dans ses der- 

niers retranchements, un ordina- 

teur sait-il toujours bien faire les addi- 

tions ? Non. Le PC-1211 n’échappe 

. pas à la règle. A propos, avez-vous 

songé à tester votre matériel sur ce 
point précis ? 

Ce n’est pas tous les jours que l’on 

a réellement besoin d’exploiter tous les 

chiffres s'znificatifs du résultat d’un 

calcul fourni par ordinateur. Mais, en 

cas de nécessité impérieuse, il importe 

de savoir jusqu'où ca peut aller. 

assez loin. 


Essayons donc de pousser un petit 
ordinateur, un PC-1211, dans ses der- 
niers retranchements face à cette opé- 
ration réputée la plus élémentaire : 
l'addition. 

Rappelons que le PC-1211 affiche 

: 10 chiffres, stocke également 10 chif- 
fres, mais — et c’est essentiel — cal- 
cule les résultats non stockés, en par- 

.ticulier les résultats intermédiaires, 
avec 12 chiffres (les deux derniers chif- 
fres sont les chiffres de garde). On est 
donc en droit d’espérer que le résultat 

: non stocké d’une addition soit exprimé 
avec une précision absolue de 12 chif- 
fres exacts. Voyons si notre espoir est 
fondé en prenant pour exemple, le cas 

le plus simple : la somme de deux 

: nombres de même signe (tous üeux 
positifs ou tous deux négatifs). 


Nous nous proposons de vérifier : 
:esi le résultat (sous entendu non 
stocké) est exprimé avec 12 chiffres 
: exacts ; 
e si l’ordre des deux termes de la 
somme est indifférent, soit si A+B et 
B+ A donnent le même résultat. 


L'analyse d’additions dont les don- 

. nées et le résultat comportent moins de 

11 chiffres est sans intérêt : ce résul- 

tat est toujours exact ! Avec des don- 

nées de plus de 13 chiffres, l’erreur est 

« normale » puisque la machine tra- 
vaille sur 12 chiffres. 


Il reste donc à examiner les addi- 
tions dont le résultat comporte exac- 
tement 12 chiffres. Soit par exemple, 

la somme des deux nombres Z = 
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0,3605 et A = 0,000 000 999 957 : Z 
+ A = 0,360 500 999 957. 


En mode calcul, on affecte aux 
mémoires Z et À les valeurs ainsi défi- 
nies et on vérifie l’exactitude du résul- 
tat. Si on fait Z + À ENTER, l’écran 
indique 0,360 501. On retrouve bien la 
valeur approchée, avec 10 chiffres 
significatifs, du résultat recherché. Si 
l’on veut récupérer les chiffres de 
garde, il faut soustraire de Z + A, 
avant d'appuyer sur ENTER, les deux 


{ 7 


premiers chiffres significatifs du résul- 


tat. Soit : Z + À — 0,36 ENTER. 


L’écran indique 0,000 500 999 957 : 
(plus exactement 5.009 999 57 E — 04), 
et la preuve est ainsi faite que le cal-:.. 


cul interne de Z + A a été effectué 
avec 12 chiffres exacts. 


Inversons maintenant l’ordre des 
termes et introduisons au clavier À + 


Z — 0,36 ENTER. Surprise, l’écran 


indique 0,000 500 999 95, On a perdu 


le dernier chiffre significatif. 


Vérifions : (Z + A) — (A + Z): 
12. C'est a % 
valeur du chiffre perdu. On peut en. 


ENTER donne 7 E — 


conclure que le résultat d’une addition 


est susceptible d’être modifié par l’or-: 


dre d’introduction des termes. 


Mais le plus surprenant, c’est que si: 


l’on modifie la valeur absolue des ter- 


mes sans en altérer le rapport, on. 
obtient des résultats différents. Par: 


exemple, si l’on multiplie par 10 les 


valeurs initiales de Z et de A, soit: 
Z = 3,605 et A = 0,000 009 999 57, 


les conclusions précédemment établies 
‘ne sont plus valables : il n’y a pas de 


perte du dernier chiffre et (Z + A) — : 


(A + Z) est égal à zéro. 


En revanche, en multipliant par 10? 
les valeurs initiales de Z et de A, on 
retrouve les mêmes conclusions que 
dans le premier exemple, avec perte du 
dernier chiffre significatif. 


Nous avons voulu tirer au clair ce 
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phénomène et, après de nombreux 
tests, on peut conclure que : 

e quel que soit l’ordre des termes, il 
n’y a pas de perte du dernier chiffre 
si l’un des termes est supérieur ou égal 
à 1 et l’autre inférieur ; 

e le dernier chiffre est éventuellement 
perdu si les deux termes sont supé- 
rieurs à 1, ou bien si tous deux sont 
inférieurs à 1 ; 

e Si les termes sont introduits dans 
l’ordre décroissant, il n’y a pas de 
perte du douzième chiffre. 

Cette dernière propriété reste vala- 
ble même si le résultat de l’addition 
comporte 13 chiffres ou plus. Par 
exemple, pour Z = 0,360 5 et A — 


0,000 000 999 957 364, la machine 
donne : Z + À — 0,36 — 0,000 500 
999 957 et À + Z — 0,36 = 0,000 
500 999 95. Là encore, on gagne un 
chiffre en introduisant d’abord le plus 
grand terme. 


Dans la mesure où l’on connaît l’or- 
dre de grandeur des variables, on a 
intérêt, avec un PC-1211, à introduire 
les termes d’une addition dans l’ordre 
décroissant. Et dans un programme, 
on pourra même écrire LET Z = D 
+ À + C + B, au lieu de l’éternel 
LETZ = A +B + C + D. 


Pierre Ladislas GEDO 


QU'Y A-T-IL EN MÉMOIRE ? 


En anglais, cela s’appelle un 
« dump », ce qui se traduit par 
« vidage ». En fait, dans le cas qui 
nous occupe, il s’agit d’afficher sur 
l’écran de l’ordinateur le contenu des 
mémoires, mais sans altérer ce contenu 
. bien sûr. 


Nous obtiendrons un affichage de 

16 lignes dont chacune est formée par 
le contenu de 8 adresses consécutives. 
Une page d’écran représente donc le 
contenu de 128 adresses en mémoire. 
- Pour que l’utilisateur s’y retrouve faci- 
lement, au début de chaque ligne se 
trouve affichée la représentation hexa- 


décimale de la première adresse. 


Ceux et celles qui ont connu 


ALLEZ UN f. Si 
l | PETIT pur! | | 


Fe : 

corg / 

EN 
re 


Dump en langage-machine 


Utilitaire pour ZX 81 (16 Ko) 
Auteur Sylvain Coron 
Copyright LIST et l’auteur 


Chargement de la routine 


REM 
456789012345 


—_ 


2 PRINT AT 20, 1 ; ‘* ENTREZ LES CODES HEXA 1 PAR 1 TERMINER PAR 


UN POINT (.) ” 

FOR F = 16514 TO 17777 
INPUT H$ 

IF H$ = ‘‘.”’ THEN STOP 


SCROLL 
POKE F,A 
PRINT E: ‘°° 5 AS 


123456789012345678901234567890123456789012345678901234567890123 


3 
4 
» 
6 LET À = 16 x (CODE H$(1)-28) + CODE HS (2)- 28 
7 
8 
9 
1 
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La routine en langage machine 


16514 


LIGNE 


TRAD 


IMPR 


SUITE 


OCT. SUIV. : 


TEST LIGN. : 


Programme Basic d'appel 
de la routine LM 


D — 


INPUT A 


CLS 


œ An Un BR 


Avec le ZX 
de mémoire 


« dump » est immédiat. L'exécution 
avec le ZX 81 en version de base est 
un peu plus lente car la machine éva- 
lue continuellement la mémoire dis- 
ponible en fonction des affichages. 
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: 40 82 06 10 


: 40 84 21 7C 40 


LET B=INT (A/256) 
POKE 16507, A-256+B 
POKE 16508, B 


RAND USR 16514 


Ld B, 10H 


Ld HE, 40 7C H 


40 A8 ED 5B 7B 40 Ld DE, (407BH) 
40 AC IA 
40 AD 32 7B 40 


Ld A, 00 H | 
Rst 10 H 
Ld À, (DE) | 
Ld (40 7BH), À 


40 BO 21 7B 40 Ld HL, 407B H 


40 B3 CD{89] 40] Call TRAD 

40 B6 OD Dec C 

40 B7 28 07 Jrz, TEST LIGN 
40 B9 13 Inc DE 

40 BA ED 53 7B40 Ld (407BH), DE 
40 BE 18 E7 Jr, OCT. SUIV. 
40 CO D7 Rst 10H 

40 CI D7 Rst 10H 

40 C2 D7 Rst 10 H 

40 C3 D7 Rst 10 H 

40 C4 05 Dec B 

40 C5 C8 Ret Z 

40 C6 13 Inc DE 


40 C7 ED 53 7B 40 Ld (40 7BH), DE 
40 CB 18 B7 Jr LIGNE 


routine 


REM #————75 caractères ——p 
PRINT ’”’ ADRESSE DE DEPART 
DU DUMP ” 


ul 


ke à 0 
Tin 
pal 


_ ENTREZ 


MIN 


Lire hs Fe 1h) te Gr 
FA UN MS te 


81 équipé des 16 Ko 
supplémentaire, le 


bhhbbhbhpbhbhBbhE HE 


40 87 18 13 Jr, SUITE 

: 40 89 3E 00 Ld A, 00 H 
40 8B co paie) Call IMPR 
40 8E CD Call IMPR 
40 91 ED 6F RLD 
40 93 C9 Ret 

: 40 94 ED 6F RLD 
40 96 C6 1C Add 1CH 
40 98 D7 Rst 10H 
40 99 D6 1C Sub 1CH 
40 9B C9 Ret 

: 40 9C CD] 89/[ 40] Caïl TRAD 
40 9F 2B Dec HC | 
40 AO CD! 89] 40] Call TRAD 
40 A3 0E 08 LdC, 08 H 
40 A5 3E 00 
40 A7 D7 


Initialise le compteur de 
lignes à 16. 

Place dans HL l'adresse de 
début de ligne. 


Routine de traduction en 
caractères Hexa du contenu 
de l’adresse traitée et impres- 
sion en Hexa du code 
obtenu. 


Routine de rotation pour 
impression du code Hexa de 
chaque demi-octet. 


Impression du code Hexa de 
l'adresse d’un début de ligne 
(toutes les 8 adresses). 
Initialise le compteur d’octets 
à 8 par ligne. 

Impression d’un blanc 
séparateur. 


Place dans DE l'adresse de 
l’octet à imprimer et recopie 
à l’adresse 407BH le contenu 
de l’adresse analysée ; qui est 
Poctet traité. 

Fait pointer HL sur l’adresse 
où est l’octet traité. 
Appelle l’impression du code 
de l’octet. 

Si on a traité 8 adresses, saut 
au test de lignes, sinon incré- 
menter l’adresse à traiter et 
renvoi à l'impression de 
l’octet correspondant. 
Termine le remplissage de la 
ligne en cours avec 4 blancs. 


Si les 16 lignes ont été impri- 
mées, alors retour au Basic, 
sinon incrémenter l’adresse à 
traiter et retourner à l’im- 
pression d’une ligne. 


Début de l'implantation de la 


l'épreuve de la traduction Déci- 
mal/Hexa d’un extrait de mémoire 
morte, ou l’attente d’un résultat de 
conversion de ce même extrait par un 
programme Basic, apprécieront certai- 
nement la vitesse. 


Pour charger notre programme, on 
commencera par taper le petit utilitaire 
de la page précédente, qui effectuera 
la conversion Hexa/Déci et qui char- 
gera les codes voulus en mémoire. (Cet 
utilitaire peut d’ailleurs être utilisé 
pour introduire n’importe quel pro- 
gramme LM en hexadécimal.) 

La ligne 1 comporte une instruction 
REM suivie de 75 caractères à l’empla- 
cement desquels les codes de la routine 
en langage-machine seront pokés par 
l’utilitaire. Une fois la routine implan- 
tée, on conservera la ligne 1 et l’on 
tapera les lignes 2 à 8 du programme 
d’appel. 

La routine est transposable sur 
d’autres machines à condition toute- 
fois de modifier les adresses d’appel 
(Call IMPR et Call TRAD) dont les 
octets ont été encadrés dans la liste. 


Sylvain CORON 


. COMMODORE 64 


LISTAGE 
DÉTOURNÉ 


Problème : vous aimeriez lister 

sur votre imprimante un logiciel 

écrit à l’aide d’un utilitaire d’extension 
du Basic (comme The Tool, par exem- 
ple). Or, vous ne possédez pas cet uti- 
 litaire.. Dans ces conditions, la liste 
obtenue par la méthode normale pro- 


: duit un résultat désastreux, qui ne cor- 


respond en rien au programme réel, 


: puisqu’alors l'ordinateur est incapable 


: de traduire les mots clés spécifiques de 
l'utilitaire. 

Vous pouvez quand même obtenir 

une liste correcte. Il faudra toutefois 


< . (c’est le plus difficile) avoir pris la pré- 
: caution de sauvegarder le programme 
:: sous la forme d’un fichier séquentiel 


ASCII. Ceci se réalise facilement, lors- 
que le programme est en mémoire 
(avec l’utilitaire d'extension en place) 
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en tapant : OPEN 3,8,3, ‘‘titre,S, 
W°’:CMD 3:LIST 


Puis, quand le curseur réapparaît : 
PRINT # 3: CLOSE 3 


Pour réaliser cette première partie 
de l’opération, il faut évidemment dis- 
poser de l’utilitaire. Puisque vous ne 
lPavez pas, il faudra demander au 
fournisseur du programme de vous 
redonner ce dernier, sous la forme 
indiquée plus haut. : 


Ayant maintenant en main le 


fichier-programme, il suffit d’un pro- 
gramme simple pour en obtenir le lis- 
tage qui sera rigoureusement sembla- 
ble au listage du vrai programme : 


10 OPEN 3,8,3, ‘‘TITRE,S,R’” 

20 OPEN 1,4 

30 GET # 3, AS 

40 IF ST = 0 THEN PRINT # 1, A$;: 
GOTO 30 

50 PRINT # 1 

60 CLOSE 1: CLOSE 3 

70 END 


Pour que ce truc marche avec un 
magnétophone, la sauvegarde doit se 
faire avec : OPEN 3,1,1, “TITRE”: 
CMD 3: LIST 


Et pour la relecture, la ligne 10 
devient : 10 OPEN 3,1,0, “TITRE” 


Ce truc peut être utilisé pour lister 
sur un autre CBM les programmes du 
C.64, ou du Vic 20, ou encore ceux 
des nouveaux C.16 et PLUS 4. 


Robin BOIS 


… DELETE ET RENUM.. 
ALEAJACTA EST. 
ET CAETERA,. 


DELETE 
5 ?DELETE 


18 CLS:INPUT'lere & derniere 


uler";C,D 


28 28-1363: INPUT'"D’accord CO/N)";E$:IFES$< 


> “O"THENEND 


38 INITHI, ‘,500 


S6EXPEEKCE+3) : IFA=GTHEN?G 


58 IFB>=CANDB<=DTHENPRINTH], STR$S(B) 


68 2-A:GOT048 


?@ INITHS," “:EXECRHEEIF :DELETE" ‘,"D":E 
ND 
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lignes a ann 


DELETE ET RENUM 


de la dernière ligne à détruire. 


Pour renuméroter vos programmes 
maintenant, je vous propose deux 
solutions. La première est à la fois 


simple et rapide. Comme pour 
DELETE, l'utilitaire doit être inscrit 


en zone fichier ; on le lance donc au 


moyen de RUN ‘* RENUM ”’. 


Si l’on veut au contraire le rajouter 


à la fin du programme à renuméroter, 


Premier utilitaire : simuler l’or- 
dre DELETE grâce auquel on 
supprime en une fois plusieurs lignes 
d’un programme. On lance le pro- 
gramme (RUN ‘‘ DELETE ”) et on 
indique les numéros de la première et 


on insérera une ligne 65528 qui empêé- 
chera l’auto-renumérotation de 
lPutilitaire : 

65528 IF PEEK (Z+2) + PEEK 
(Z+3) x 256 = 65525 THEN END 


La seconde solution est plus lente à 
lPexécution maïs beaucoup plus prati- 
que. Elle indique en effet sur l’impri- 
mante l’ancien et le nouveau numéro 
des lignes ainsi que la présence des 
GOTO, des GOSUB et des THEN, ce 
qui facilite grandement la renuméro- 
tation des branchements. 


Yves DRILLET 


RENUM version courte 


65525 ? RENUM 


5 65526 2=1363 : INPLIT'No 


NT" ;D,C 


ND 


65528 ? RENUM 


65521 2-=13635 : INPUT"No 


le LIGNE & INCREME 


65527 A=PEEK(2)+PEEK(2+1)*256 : IFA=QTHENE 


65529 POKE2+2,DMOD256 :POKE2+$, INT(D/256) 
:0=D+C:2=A :GOTO65527 


RENUM version longue 


le LIGNE & INCREME 


NT" ;0,C :GOSUB65528 


65522 2=2è+]:E-=PEEK(2):IFE=QTHENIFPEEKC2+ 


2)=0THENENDELSE2=2+1 :GOSUB65528 


65523 IFE=1360RE=1400RE=206THENLPRINT"X" 
48 A=PEEK(2)+256XPEEK(2+1) :B=PEEK(2+2)+2 Ê 


65526 GOTO65522 


X256; /";D; 


65528 LPRINT(1,1]"-";PEEKC2+2)+PEEKC2+S) 


65529 POKE2+2,DMOD256 :POKEZ+3, INT(D/256) 


:D=D+C:2=2+3:RETURN 
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4 séché 0e 17° SNS 


Tout d'abord, ils peuvenbiètte 
qu'il s’agit de jeux, de petits pt 
Ils ont également 

en effet à chacun d'exercer $ 


LES JEUX 


ÿ-TÊTE 


de qui vous sont proposés 

Hique ont plusieurs aspects. 

épris sous l'angle ludique, c'est-à-dire 
Dlèmes plus ou moins faciles à résoudre. 
Maspect pratique. Ils permettent 

Pagilité logique. Et il n’est pas nécessaire, 


pour trouver la solutionNd'’avoir un ordinateur sous la main... 


Fonctions logiques 


Les fonctions « logiques » sont 

appliquées à des propositions qui 
ne peuvent prendre que deux valeurs : 
vrai ou faux. Et le résultat est soit vrai, 
soit faux. 

Ainsi, le ou exclusif (ox), l’équiva- 
lence (equ), l’implication (imp) et la 
réciprocité (rpc) sont définis par une 
« table de vérité » (voir ci-dessous). 


ne. Table de vérité 


CROS-TU QUE L'ON 

PEUT VRAIMENT TROUER Ÿ PTÈT Bien QUOU 

4 FAPRESSIONS LOGIQUES ©] Mais PTÊT Bien 
NON ! 


Cette table doit son nom aux valeurs qui 
la composent : 0 est la représentation de 
« faux » et 1 celle de « vrai ». 


B A ox B A equ B A imp B A rpc B 
0 0 1 l l 
l 1 0 1 0 
0 il 0 0 1 
1 0 1 1 1 
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On peut y lire que À ox B est « vrai » 
si À ou B l’est, mais pas les deux ; A 
equ B est vrai s’ils ont la même valeur, 
etc. 

Ces fonctions sont rarement disponi- 
bles dans les langages de programma- 
tion : essayez donc de trouver quatre 
expressions logiques pour les remplacer. 


Interdit de sauter 


Le petit extrait de programme 
présenté plus loin provient d’un 
progiciel de comptabilité. Cette comp- 
tabilité permet de travailler sur deux 


* Les solutions des jeux proposés ici paraîtront 


dans le prochain numéro de LIST. 
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périodes comptables (exercices) en 
même temps. Il est possible d’ajouter ou 
de modifier des écritures sur un mois 
donné tant que celui-ci n’a pas fait l’ob- 
jet d’une clôture. 


Cette application utilise un tableau 
nommé Arrete, de 24 éléments qui cor- 
respondent aux mois de 2 années. Cha- 
que élément de ce tableau mémorise 0 
si le mois n’a pas été clôturé (ou cen- 
tralisé, pour les comptables), et une 
autre valeur selon les types de clôtures 
qui ont été réalisées. 

Les instructions ci-dessous recher- 
chent le premier arrêté non clôturé. Il 
s’agit du premier élément du tableau 
Arrete qui est égal à 0. A l'étiquette 
Suite, la valeur de Prear correspond à 
l’indice du premier élément de Arrete 
qui est égal à Q. 

POUR I:= 1 JUSQU - A 24 

SI Arrete(l) =0 ALORS 


Prear:=1I 
ALLER - A Suite 
FIN -SI 
FIN - POUR 
Suite. 
Nous savons que les sauts 


(ALLER - A) ne sont pas à recomman- 
der dans les programmes, puisqu'ils nui- 
sent à leur clarté. D’ailleurs, on dit sou- 
vent que la qualité d’un programmeur 
est inversement proportionnelle au 
nombre de GOTO utilisés. Pour remé- 
dier à cela, nous pouvons écrire ce frag- 
ment de programme de la façon 
suivante : 
POUR I:= 1 JUSQU - A 24 

SI Arrete(1) =0 ALORS Prear:=I 
FIN - POUR 


Nous pouvons toutefois nous poser 
les questions suivantes : 


1. Ce dernier extrait de programme 


—— 
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C'EST PAS MON 
À ll PROBLÈME ; DE 

SUIS PAYÉ FOUR 
SURVEÏLLER PAS 


fournit-il toujours le même résultat que 
le précédent ? Sinon, comment peut-on 
le corriger simplement ? 

2. Comment peut-on encore le récrire 
plus 


pour qu’il soit 


l’exécution ? 


rapide à 


Max et les tableaux 


Dans certains langages, la fonc- 

don MAX admet un tavicau 
comme paramètre. Il est alors possible 
de rechercher, en une instruction, la plus 
grande valeur d’un tableau. 


Si une telle fonction n’est pas dispo- 
nible, il est nécessaire d’écrire quelques 
instructions comme dans le programme 
Basic ci-dessous. Il travaille sur un 
tableau T de 10 éléments indicés de 1 à 
10. Il est chargé de rechercher et d’affi- 
cher la plus grande valeur mémorisée 
dans le tableau. 

10 M=0 

20 for I=1 to 10 

30 if T (1) < =M then goto 50 
40 M=T (I) 

50 next I 

60 print M 


Trois questions se posent au sujet de 
ce programme. 


1. Comment le rendre plus clair en 
supprimant le GOTO de la ligne 30 ? 


2. Dans quels cas le résultat est-il 


MAiS PUISQUE JDE VOUS Dis 
QUE C'EST UNE ERREUR! 

CET ENDROIT NME DEVRAIT 

PAS ETRE CLOTURÉ … 


AU LIEU DE FAIRE LE MALIN AU FOND DE 
LA CLASSE VOUS FEREZ MiEUX D'ALLER 
AU TABLEAU 


faux ? C’est-à-dire dans quelles circons- 
tances la valeur affichée ne correspond- 
elle pas à la plus grande valeur du 
tableau T ? 


3. Comment corriger ce programme 
pour que le résultat soit toujours juste ? 

Pourriez-vous répondre à toutes ces 
questions ? 


Les clones informatiques 


Vous avez certainement déjà 

entendu parler des clones : ce sont 
des individus parfaitement semblables. 
Dans le monde végétal, une bouture de 
géranium, par exemple, est un clone. 
Dans le monde animal, les femelles 
tatous (mammifères d’ Amérique tropi- 
cale) mettent au monde quatre petits 
clones. 


Dans le monde informatique, tout est 
à faire : pouvez-vous écrire un pro- 
gramme clone dont l’exécution ne pro- 
duira rien d’autre que la liste exacte du 
programme lui-même (des instructions 
comme PEEK, POKE ou LIST sont 
interdites). 


Si VOUS AVEZ BESOIN D'UN TUYAU 

POUR RÉALISER CE PROGRAMME, 

VOUS POUVEZ TOUJOURS CONSULTER 
MA MAMAN ! 
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Opérations DIV et MOD 


Sans l’aide d’un ordinateur, on 
trouve les réponses qu’il ferait aux 
dix opérations proposées avec DIV et 
MOD : 
. À MOD 1 donne 0 
. À MOD A donne 0 
. A MOD -1 donne 0 
. À MOD -—A donne 0 
. À MOD 0 donne un message 
d’erreur 
. À DIV 1 donne A 
. A DIV A donne ! 
. À DIV —-1 donne -1 
. À DIV- A donne -— 1 
. À DIV 0 donne un message 
d’erreur 


Un & WW ON 


—s 
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Construire la matrice unité 


L'initialisation en moins de 20 
secondes d’une matrice unité de 
100 lignes sur 100 colonnes peut être 
effectuée par le programme qui suit : 
10 for L=1 to MAXLIG 


20 for C=1 to MAXCOL 
30 A(L,C)=0 
40 next C 
50 A(L,L)=1 
60 next L 
Comme MAXLIG=100 et 


MAXCOL = 100 pour cette matrice, le 
temps d’exécution d’un tel programme 
est de : 100 fois la ligne 10, (100 x 100) 
fois la ligne 20, (100 X 100) fois la ligne 
30, 100 fois la ligne 50. Soit en micro- 
secondes : (100 x 850) + (10000 x 850) 
+ (10000 x 1130) + (100 x 1130). 


Le résultat de ces opérations donne 
19 998 000 microsecondes, ce qui est 
inférieur à 20 secondes. 


On le constate, ce programme com- 
mence par initialiser toute la matrice à 
zéro, puis, dans un second temps, il met 
la valeur un dans les éléments de la dia- 
gonale. Des calculs inutiles sont donc 
effectués, mais le temps d’exécution se 
trouve réduit par l’élimination du test 
consistant à détecter les cas particuliers. 
En effet, il est inutile de tester N° fois 
si L vaut C pour avoir seulement N 
réponses vraies. 


VA PAS 
NON P 
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La fausse égalité 


L’associativité de la multiplica- 

tion permet d'écrire l'égalité 
(Ax*B) +C = Ax(B+C). L'ordinateur, lui, 
semble ignorer cette propriété. 


En prenant, par exemple, A= 1.6, 
B = 1.00008, C = 6.00016, un ordinateur 
qui effectue les calculs avec six chiffres 
significatifs renverra les résultats 
suivants : 
(AxB)}+C = 1.60012+C = 9.60097 et 
Ax(BxC)= A+6.00064=9.60102 (ces 
égalités tiennent compte de la troncature 
des nombres à 6 chiffres lors des 
calculs). 


Après seulement deux multiplica- 
tions, seuls trois chiffres significatifs sur 
six peuvent donc être considérés comme 
sûrs. 


En prenant d’autres valeurs, par 
exemple : A=1.1, B—1.00009, 
C=8.18113, on obtient des résultats 
encore moins bons. En effet, 
(AxB}+C = 1.10009+C=8.99997 et 
Ax(BxC) = Ax8.18186 = 9.00004. 


Dans certains domaines, comme la 
météorologie, où de nombreux calculs 
doivent être effectués, les ordinateurs 
utilisés travaillent avec un nombre plus 
important de chiffres significatifs. Mais 
des erreurs subsistent. 
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I LES DIX TESTS DE LIST 
_ MESURER LE BASIC. 


OUR évaluer en partie les performances d'un ordinateur « 
précisément les qualités de son Basic, nous avons reter 
provisoirement dix tests. Ils permettent de mesurer la vites 
la machine exécute ses appels de sous-programmes et di 
de traitement de chaïnes de caractères, de calculs arithm 
d'opérations sur les tableaux de variables, etc, 


Ordinateurs de poche et ordina- 
teurs de table sont réunis dans le 
même tableau : leur Basic est mis à 


Test 1 - Boucle vide Test 6 - Calcul scientifique 
10 FOR I=1 TO 10000 10 FOR I=1 TO 10000 


l'épreuve. Sur les quarante testés ici, une 20 NEXTI 15 J=SIN (LOG(I) 
dizaine ‘‘entrent dans la poche”. Ils 30 END 20 NEXTI 
sont petits, autonomes (ils n’ont pas 30 END 


Test 2 - Sous-programmes 


besoin du secteur, des piles suffisent), À 
10 FORI=1 TO 10000 Test 7 - Affichage 


ils ont des écrans à cristaux liquides, des #2 


mémoires permanentes (même éteints, La te 100 10 FOR I1=1 TO 10000 
ils conservent les programmes) et ils se 30 END 15 Re | 
distinguent généralement par le nombre ## 100 GOSUB 110 20 NEXT 1 » 3 

de leurs fonctions scientifiques prépro- 110 RETURN 30 END 


grammées. 


Les ordinateurs de table ont un véri- Test 3 - Matrice Test 8 - Tracé d’une ligne 
! pr | $ DIM A(10,10) | 
table écran, celui de la télévision ou d’un ** & graphique 
. À s 10 FOR I=1 TO 10 : 
moniteur, et leur Basic possède souvent 12 FOR J=1 TO 10 10 FOR 1=1 TO 10000 
des fonctions graphiques. La taille dela # 13 FOR K=1 TO 100 15  LINE(O,0) — (319,199) 
mémoire de base est généralement plus ; 15 A(IJ)=K A D [ 
importante que celle des ordinateurs de 17 NEXTK 
\ 18 NEXTJ 
poche ” . 20 NEXTI Test 9 - Écriture de fichiers 
Les tests ont été rédigés sous une 30 END 5 A$=« LISTEST » 
forme ‘‘standard”’, celle qui convient au 6 OPEN « O », #1, 
plus grand nombre. Dans la mesure du Test 4 - Opérations sur les « FICHIER » 
possible, ils ont été appliqués sous cette chaînes de caractères 10 FOR 1=1 TO 10000 
forme, sans tenir compte des caractéris- 5 A$=« LISTEST » 15 PRINT # 1, A$ 
tiques propres à chaque Basic. Par 10 FOR I1=1 TO 10000 : Se 
exemple, certains auraient supporté une 15 B$=LEFTS$(AS,2) 30 END 
boucle FOR...NEXT sans spécification On 
de variable (la boucle se termine alors 20 NEXTI : Test 10 - Lecture de fichiers 
par NEXT au lieu de NEXT D) et ainsi, 30 END 6 OPEN «1 », #1, 
les résultats des tests auraient été meil- « FICHIER » 
leurs. Mais cette propriété n’est pas Test 5 - Arithmétique 10 FOR 1=1 TO 10000 
. vraie sur tous les Basic. 10 FOR I=1 TO 10000 15 INPUT # 1, A$ 
: : 15 J=I«7+3/I 20 NEXTI 
Face aux dix tests de LIST, le Basic 20 NEXTI 25 CLOSE 


le plus lent (parmi les quarante testés) 
est celui du PC-1211. Il s’agit là du pre- 
mier ordinateur de poche programma- 
ble en Basic. Ses qualités, très origina- 
les au moment de sa naissance, excusent 
cette lenteur. 


Parmi les records de vitesse, on 
remarque le Dai (tests 1 et 3), le BBC 


30 30 END 
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(entre la première et la deuxième place ” 
sur tous les tests, sauf les 6, 9 et 10), le 
QL (tests 5 et 6, c’est-à-dire arithméti- 
que et calcul scientifique), le Lynx (test 
4) ; mais aussi, l’Electron, l’Hector ou 
l’Amstrad. 


Pour les tests 9 et 10, l’ Atmos sem- 
ble donner des résultats particulièrement 
bons. Son système d’exploitation des 
disquettes (DOS) est très rapide : il est 
vendu pour 250 000 bauds (bits par 
seconde), ce qui est en effet très rapide. 


Quant à Macintosh, il n’a pas de 
Basic résident. Celui qui est testé ici est 
la première version du Basic Microsoft 
(sous forme de disquette). 


On ne dira jamais assez que les com- 
paraisons ne peuvent être entreprises 
qu’avec prudence. Chaque Basic a ses 
caractéristiques. L’absence de norme 
permet à certains de briller là où d’au- 
tres sont faibles, et réciproquement. 


460 
9 chiffres 


285 
9 chiffres 


1 130 
É 320 x 200 


765 
cassette 


165 
cassette 


479 130 484 404 710 
9 chiffres 280 x 160 | disquette | disquette 
2 040 225 1 766 
9 chiffres 320 x 192 


629 244 
9 chiffres 240 x 200 


405 239 
9 chiffres 160 x 256 


1 680 2 420 2 830 
14 chiffres 120 x 32 


766 141 77 


disquette | disquette 


1 944 1 944 
cassette | cassette 


43 300 43 300 
cassette | cassette 


= 
æ 
= 
Le,2 
S 
Le] 
Le 
re) 
Le] 


598 168 880 998 998 6 809 
9 chiffres cassette cassette 


295 
9 chiffres 
799 
6 chiffres 
590 
9 chiffres 


578 
9 chiffres 


731 
320 x 200 


2518 
336 x 256 


874 
256 x 192 


299 
160 x 256 


394 
disquette 


71 
disquette 


1103 
cassette 


323 6510 
disquette 


62 
disquette 


1103 
cassette 
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Résultats des dix tests 


k] 3 090 790 

14 chiffres 320 x 250 
920 740 1 220 1 250 4 450 2 550 

12 chiffres 

7 54 34 5 202 1 180 423 
7 chiffres 231 x 243 
206 97 266 262 823 420 
mémoire 


1 234 2 460 2 400 6301 
120X32 | cassette | cassette 


457 TMS 7 020 


Casio 


Z80 


2 
mémoire 


pe 
5 


15 chiffres 


71 152 209 179 558 
9 chiffres 


1 34 38 34 14 814 
; 7 chiffres 

778 
14 chiffres 


376 
6 chiffres 


505 
9 chiffres 


1 973 


2 520 


= 
ë 
= 


67 | MC68000 


448 85 
496x294 | disquette | disquette 
1 430 940 
320x 200 | cassette | cassette 
517 
280 x 192 


284 897 
240 x 200 


rs 
! 547 705 1 500 750 2 100 1 450 2 750 
Le 12 chiffres 160 x 32 


JE 


& 
a 


890 
295 
337 


6 502 


20 104 217 142 6 502 


1 700 
12 chiffres 


Casio 


ÉCECE 


HF ME 
| Re 2 350 4450 4 672 4 900 11 300 Sharp 
As 12 chiffres 

D 47 970 870 | 1430 | 1400 L 547 
Dre 10 chiffres 
se 75 296 399 970 740 1 220 
DE 12 chiffres 
RÉRIG 316 384 940 710 1 620 3 500 
È 12 chiffres 150 x 32 
CR ROSES 
: à ? 119 54 145 1 269 2 293 135 99 68 008 
ne 8 chiffres 512X256 | microdrive | microdrive 
Fe 21 56 85 146 67 132 126 | Z80/8 049 
ï 320x200 | disquette | disquette 
42 H5 195 243 610 Z30 
256 x 176 
28 58 138 2 320 2 500 1010 1 840 |TMS 9 900 
disquette | disquette 
46 138 22 1 037 6 809 
; 320 x 200 
CRT EE ETT 
23 46 70 339 283 165 Z80A 
; disquette | disquette 
: 7 37 6 445 173 369 310 6 502 
9 chiffres disquette | disquette 
; 20 4i 139 1 165 1 863 1 863 Z80 
16 chiffres 256X 192 | cassette | cassette 
À 100 Z80 
9 chiffres 
176 380 4 540 5 300 Z80 
9 chiffres 
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